在Excel中錄入好重要資料的時(shí)候都需要進(jìn)行密碼保護(hù)處理，而過(guò)了一段時(shí)間后卻覺得不再需要用到密碼進(jìn)行保護(hù)了，這個(gè)時(shí)候就需要用到取消加密的功能了，具體該如何取消加密的功能呢?下面是由小編分享的excel2007 取消加密的有效方法，以供大家閱讀和學(xué)習(xí)。
excel2007 取消加密的有效方法：
取消加密步驟1：打開Excel表格中的Excel選項(xiàng)，選擇自定義，得到如下畫面：
取消加密步驟2：然后在左邊側(cè)框欄中選擇“查看宏”
之后雙擊或者選擇添加按鈕，則可以看到右邊欄中有了查看宏按鈕，之后點(diǎn)擊右下角的確定。
取消加密步驟3：大家可以在下面這個(gè)窗口處看到箭頭所指的按鈕：
點(diǎn)擊按鈕，之后彈出窗口：
取消加密步驟4：在宏名處填寫一個(gè)名字(可隨意)，然后點(diǎn)擊創(chuàng)建，彈出以下窗口：
取消加密步驟5：將窗口內(nèi)的內(nèi)容全選后刪除，然后將下面分割線以內(nèi)的內(nèi)容開始復(fù)制粘貼在上面的窗口內(nèi)：
從橫線下開始復(fù)制
——————————————————————————————
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
共2頁(yè): 上一頁(yè)
