excel2007怎么使用代码破解密码 excel密码破解代码

1、excel2007怎么使用代码破解密码 excel密码破解代码在Excel中录入过多的重要数据是人们的习惯，因此这些文件都需要利用密码进行保护。但是忘记密码了怎么办呢，接下来让小编为你带来excel表设置密码忘记如何打开的解决方法，欢迎大家来到学习。excel2007表格设密码忘记的打开方法1. 打开需要破解密码的Excel2. 按Alt+F11进入VBA编辑界面3. 插入 - 模块4. 在右边Module的空白编辑区域，复制粘贴下面所有内容5. F5，运行该VBA命令-Option ExplicitPublic Sub AllInternalPasswords Breaks workshee

2、t 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 Modified 2003-Apr-04 by JEM: All msgs to constants, and eliminate one Exi

3、t Sub 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 Mess

4、age”Const VERSION As String = DBLSPACE & “Version 2003-Apr-04”Const REPBACK As String = DBLSPACE & “Please report failure “ & _”to the newsgroup.”Const ALLCLEAR As String = DBLSPACE & “The workbook should “ & _”now be free of all password protection, so make sure you:” & _DBL

5、SPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _DBLSPACE & “BACKUP!, BACKUP!, BACKUP!” & _DBLSPACE & “Also, remember that the password was “ & _”put there for a reason. Dont stuff up crucial formulas “ & _”or data.” & DBLSPACE & “Access and use of some d

6、ata “ & _”may be an offense. If in doubt, dont.”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.” & DB

7、LSPACE & _”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 computers

8、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 & _”N

9、ote 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 &

10、“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 MSG

11、ONLYONE 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 Integ

12、er, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or Next w1If Not ShTag And Not

13、 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

14、 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 ActiveWorkbook.Unprotect Chr & Chr & Chr & _Chr & Chr & Chr & Chr & _Chr & Chr & Chr & Chr & ChrIf .ProtectStructure = False An

15、d _.ProtectWindows = False ThenPWord1 = Chr & Chr & Chr & Chr & _Chr & Chr & Chr & Chr & _Chr & Chr & Chr & ChrMsgBox , vbInformation, HEADERExit Do Bypass all for.nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop

16、Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt clearance with PWord1 PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In WorksheetsChecks for all clear ShTag triggered to 1 if n

17、ot.ShTag = ShTag Or Next w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents 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 =

18、 65 To 66: For i6 = 65 To 66: For n = 32 To 126.Unprotect Chr & Chr & Chr & _Chr & Chr & Chr & Chr & Chr & _Chr & Chr & Chr & ChrIf Not .ProtectContents ThenPWord1 = Chr & Chr & Chr & Chr & _Chr & Chr & Chr & Chr & _Chr & Chr & Chr & ChrMsgBox , vbInformation, HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheets PWord1Next w2Exit Do Bypass all for.nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Erro