excel表设置密码忘记如何打开

1、excel表设置密码忘记如何打开在Excel中录入过多的重要数据是人们的习惯，因此这些文件都 需要利用密码进行保护。但是忘记密码了怎么办呢，下面让小编为你 带来excel表设置密码忘记如何打开的解决方法。excel表设置密码忘记打开步骤：L打开需要破解密码的Excel2 .按Alt+Fll进入VBA编辑界面3 .插入-模块(Module)4 .在右边Module的空白编辑区域,复制粘贴下面所有内容5 . F5 ,运行该VBA命令(下面的内容在第四步复制进 去)Option ExplicitPublic Sub AIIInternalPasswords()Breaks worksheet and

2、 workbook structure passwords. Bob McCormickprobably originator of base code algorithm modified for coverageof workbook structure / windows passwords and formultiple passwordsNorman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)Modified 2003-Apr-04 by JEM: All msgs to constants, andeliminate one

3、Exit Sub (Version 1.1.1)Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine vbNewLine Adapted from Bob McCormick base code by Norman Harker and JE McGimpseyConst HEADER As String = AlllnternalPasswords User MessageConst VERSION As String = DBLSPACE Version 1.1.1 2003-

4、Apr-04Const REP BACK As String = DBLSPACE Please report failure to the gramming newsgroup.Const ALLCLEAR As String = DBLSPACE The workbook should now be free of all password protection, so make sure you: SAVE IT NOW! and also BACKUP!, BACKUP!, BACKUP! Also, remember that th

5、e password was put there for a reason. Dont stuff up crucial formulas or data. Access and use of some data may be an offense. If in doubt, dont.Const MSGN0PW0RDS1 As String = There were no passwords on sheets, or workbook structure or windows. VERSIONConst MSGNOPWORDS2 As String = There was no prote

6、ction to workbook structure or windows. _Proceeding to unprotect sheets. VERSIONConst MSGTAKETIME As String = After pressing OK button this will take some time. Amount of time depends on how many different passwords, the passwords, and your computers specification. _Just be patient! Make me a coffee

7、! VERSIONConst MSGPWORDFOUND1 As String = You had a Worksheet Structure or Windows Password set _The password found was: $ _Note it down for potential future use in other workbooks by the same person who set this password. _Now to check and clear other passwords. VERSIONConst MSGPWORDFOUND2 As Strin

8、g = You had a Worksheet password set The password found was: $ Note it down for potential future use in other workbooks by same person who set this password. Now to check and clear other passwords. VERSIONConst MSGONLYONE As String = Only structure / windows protected with the password that was just

9、 found.AUTHORS REPBACKDim wl As Worksheet w2 As WorksheetDim i As Integer; j As Integer; k As Integer; I As IntegerDim m As Integer; n As Integer; il As Integer; i2 As IntegerDim i3 As Integer; i4 As Integer; i5 As Integer; 16 As IntegerDim PWordl As StringDim ShTag As Boolean, WinTag As BooleanAppl

10、ication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each wl In WorksheetsShTag = ShTag Or wl.ProtectContentsNext wlIf Not ShTag And Not WinTag ThenMsg Box MSGNOPWORDS1, vblnformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vblnforma

11、tion, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vblnformationz HEADER日seOn Error Resume NextDo dummy do loopFor i = 65 To 66: Forj = 65 To 66: For k = 65 To 66For I = 65 To 66: For m = 65 To 66: For il = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65

12、 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) Chr(k) Chr(m) Chr(i2) Chr(i4)Chr(i6) Chr(j) Chr(l) Chr(il) Chr(i3) Chr(i5) Chr(n)MsgBox Application.Substitute(MSGPWORDFOUNDl, _$, PWordl), vblnformation, HEADERExit Do Bypass all for.nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextN

13、ext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vblnformation, HEADERExit SubEnd IfOn Error Resume NextFor Each wl In WorksheetsAttempt clearance with PWordlwl.Unprotect PWordlNext wlOn Error GoTo 0ShTag = FalseFor Each wl In Worksh

14、eetsChecks for all clear ShTag triggered to 1 if notShTag = ShTag Or wl-ProtectContentsNext wlIf ShTag ThenFor Each wl In WorksheetsWith wlIf .ProtectContents ThenOn Error Resume NextDo Dummy do loopFor i = 65 To 66: Forj = 65 To 66: For k = 65 To 66For I = 65 To 66: For m = 65 To 66: For il = 65 To

15、 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 126.Unprotect Chr(i) Chr(k) Chr(m) Chr(i2) _Chr(i4) Chr(i6) Chr(j) Chr(l) Chr(il) Chr(i3) Chr(i5)Chr(n)Msg Box Application.Substitute(MSGPWORDFOUND2/_$, PWordl), vblnformation, HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2. Un protect PWord 1Next w2Exit Do Bypass all for.nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Erro