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)設定賀...
-
電腦無法訪問指定設備路徑或檔案怎麼辦
關於電腦,現在很多人都在用它,但是有時候在開啟一個程序的時候會發現突然顯示警告說無法訪問指定設備路徑或檔案,下面我來教大家一種方法來解決這個問題。操作方法(01)首先我們要清楚我們安裝的這個程序,也就是軟件安裝位置在哪個盤,如果不清楚就點擊鼠標右鍵,然後開啟...
-
Word文檔詳細基礎教程
操作方法(01)開啟word後,點擊檔案,選擇新建,點擊個空白文檔就可以新建了。(02)先學會選擇,想要選擇文檔裏的部分內容,可以用鼠標左鍵點擊一下起始位置,將遊標定位,然後按住不住,拖動到末尾位置即可。(03)然後來改變文字顏色,選中文字之後,點擊上方選單欄的文字顏色,選擇一個顏色...
-
怎麼看遊戲目錄在哪?
小夥伴們很好奇自己下載的遊戲目錄到底在哪,彆着急,今天我就來告訴你怎麼看遊戲目錄在哪?一起來看看吧。操作方法(01)在電腦桌面鼠標右鍵單擊遊戲圖標,在彈出的選單欄中選擇最下方的【屬性】;(02)在屬性頁面,捷徑項下,目標欄地址即爲遊戲的安裝路徑,或者點擊“查找目示...