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

1、excel2007怎么使用代碼破解密碼 excel密碼破解代碼在Excel中錄入過多的重要數據是人們的習慣，因此這些文件都需要利用密碼進行保護。但是忘記密碼了怎么辦呢，接下來讓小編為你帶來excel表設置密碼忘記如何打開的解決方法，歡迎大家來到學習。excel2007表格設密碼忘記的打開方法1. 打開需要破解密碼的Excel2. 按Alt+F11進入VBA編輯界面3. 插入 - 模塊4. 在右邊Module的空白編輯區(qū)域，復制粘貼下面所有內容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