EXCEL工作表保護密碼忘記 如何撤銷保護
在做excel表格時我們有時候會給自己的工作表加密,一旦忘記密碼就會很麻煩,下面我們就介紹一下如何繞過密碼,直接撤銷保護。
操作方法
(01)開啟excel,點擊選單欄的“視圖”,點擊二級選單裏的“宏”,選擇錄製宏
(02)在彈出來的方框中輸入宏的名稱,點擊確認。
(03)重複第一步的步驟,不過這次點擊“停止錄製”。
(04)選擇檢視宏。
(05)編輯宏。
(06)在彈出來的代碼框輸入下面的代碼。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 & VERSIONConst 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 ThenMsgBox 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 WorksheetsWith 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
-
光盤刻錄大師免費版圖文使用教程
光盤刻錄大師是涵蓋了數據刻錄、光盤備份與複製功能的軟件,其用戶使用評價好錯參半,見仁見智吧。現在網上也流行使用光盤刻錄軟件大師免費版,今天就把光盤刻錄軟件大師免費版的圖文使用教程教給大家:操作方法(01)開啟刻錄軟件後,從右上角開始,我們可以看到有“添加視...
-
怎麼取消電腦自動鎖屏
不喜歡電腦自動鎖屏,但也不知道怎麼設定,沒關係,一起和我來了解一下吧。操作方法(01)我們先開啟“控制面板”,可以在“開始選單”或者是直接在桌面上開啟,大家就自己選擇吧。(02)開啟之後,我們選擇“系統和安全”。(03)再在“電源選項”下,選擇“更改計算機睡眠時間”。(04)最...
-
電腦屏幕旋轉快速鍵 。電腦屏幕旋轉了怎麼辦
很多用戶有時會不小心觸發一些系統中的快速鍵導致電腦屏幕方向被更改又不知道怎麼恢復,這就來教一下怎麼旋轉屏幕。方法一(01)電腦屏幕旋轉快速鍵旋轉至正常位置:CTRL+ALT+方向鍵上。旋轉90度:CTRL+ALT+方向鍵左。旋轉180度:CTRL+ALT+方向鍵下。旋轉270度:CTRL+ALT+方...
-
打印機驅動沒問題但就是無法打印問題的解決
有時我們使用打印機打印檔案時,發現好像一切都沒有問題,但就是按下打印鍵後打印機卻一直沒有反應。本篇就來介紹其中一種情況的解決方法。操作方法(01)在電腦的開始選單中找到“控制面板”點開。(02)在控制面板中有一項是“檢視設備和打印機”,單擊開啟。如圖。(03)在設...