Excel “撤銷工作表保護”密碼破解獲取原始密碼
您用Excel編制的報表、表格、程序等為了防止其他人修改您的設置,會使用Excel的工作表保護功能,但時間久了保護密碼容易忘記,這該怎麼辦?或者您從網上下載的Excel格式的小程序,您想修改,但是作者加了工作表保護密碼,怎麼辦?只要按照以下步驟操作,Excel工作表保護密碼瞬間即破!
操作方法
(01)打開您需要破解保護密碼的Excel文件
(02)依次點擊菜單欄上的工具---宏----錄製新宏,輸入宏名字如:aa
(03)停止錄製(這樣得到一個空宏);
(04)依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕
(05)刪除窗口中的所有字符(只有幾個),替換為下面的內容:Option ExplicitPublic 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 ramming 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 & VERSIONConst MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _"Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _"password set." & DBLSPACE & "The password found was: " & _DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _"future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As enUpdating = FalseWith ActiveWorkbookWinTag = ectStructure Or ectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or ectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With otect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If ectStructure = False And _ectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox titute(MSGPWORDFOUND1, _"$$", PWord1), vbInformation, HEADERExit Do 'Bypass all sEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with otect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if g = ShTag Or ectContentsNext w1If ShTag ThenFor Each w1 In Worksheets With w1If ectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To otect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not ectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox titute(MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In otect PWord1Next w2Exit Do 'Bypass all sEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub
(06)關閉編輯窗口
(07)依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次;等一會,就會出現以下對話框:這就是Excel密碼對應的原始密碼再點擊確定。Excel的原始密碼就被清除了!!
-
打印機出現卡紙怎麼辦,打印機卡紙怎麼處理
有沒有小夥伴在使用打印機的時候遇到過故障。下面我們就一起來看看關於打印機出現卡紙怎麼辦?打印機卡紙應該怎麼處理的具體方法。打印機卡紙要怎麼拿出來(01)當我們使用的打印機突然出現突然卡紙現象是怎麼回事呢?首先我們需要先打開打印機的“前額”。(02)下圖就表...
-
怎樣製作電子版的賀卡?
在這個互聯網如此發達的時代,每逢親朋好友過生日,各種節日的到來之際,我們總想借助互聯網送去自己的祝福。往往想給親朋好友郵寄一張賀卡,然而網絡搜索到的賀卡有時不盡人意,或沒有創意,或沒法表達自己的感情。那麼,為什麼不嘗試親手製作一張賀卡呢?步驟/方法(01)設置賀...
-
如何將圖片轉換成word文字
在工作生活中,我們經常為圖片文字識別的問題而煩惱,要知道圖片中的文字是不可編輯的,我們如果想將圖片中的文字提取出來,就只能使用識別工具對圖片進行識別,將其轉換成Word文字。可是,我們要選擇哪一款識別工具呢?大家如何將圖片轉換成Word文字呢?下面我們就一起來看看...
-
win10任務計劃在哪裏 如何打開計劃任務程序
在使用Windows10的過程中,有時候我們需要禁用任務計劃程序裏的某個計劃,這時就需要打開任務計劃程序,那麼我們怎麼樣打開計劃任務程序呢?下面就與大家分享兩個方法吧。方法/步驟1(01)在Windows10系統桌面,依次點擊“開始/Windows系統/控制面板”菜單項。(02)在打開的Win...