一、怎样破解EXCEL密码
如何破解EXCEL工作表保护密码方法谈x0dx0ax0dx0a超级无敌有用！！！x0dx0a方法:x0dx0a1打开文件x0dx0a2工具---宏----录制新宏---输入名字如:aax0dx0a3停止录制(这样得到一个空宏)x0dx0a4工具---宏----宏,选aa,点编辑按钮x0dx0a5删除窗口中的所有字符,替换为下面的内容:(复制吧)x0dx0a6关闭编辑窗口x0dx0a7工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!x0dx0a内容如下：x0dx0aPublic Sub AllInternalPasswords()x0dx0a' Breaks worksheet and workbook structure passwords. Bob McCormickx0dx0a' probably originator of base code algorithm modified for coveragex0dx0a' of workbook structure / windows passwords and for multiple passwordsx0dx0a'x0dx0a' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)x0dx0a' Modified 2003-Apr-04 by JEM: All msgs to constants, andx0dx0a' eliminate one Exit Sub (Version 1.1.1)x0dx0a' Reveals hashed passwords NOT original passwordsx0dx0aConst DBLSPACE As String = vbNewLine & vbNewLinex0dx0aConst AUTHORS As String = DBLSPACE & vbNewLine & _x0dx0a"Adapted from Bob McCormick base code by" & _x0dx0a"Norman Harker and JE McGimpsey"x0dx0aConst HEADER As String = "AllInternalPasswords User Message"x0dx0aConst VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"x0dx0aConst REPBACK As String = DBLSPACE & "Please report failure " & _x0dx0a"to the microsoft.public.excel.programming newsgroup."x0dx0aConst ALLCLEAR As String = DBLSPACE & "The workbook should " & _x0dx0a"now be free of all password protection, so make sure you:" & _x0dx0aDBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _x0dx0aDBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _x0dx0aDBLSPACE & "Also, remember that the password was " & _x0dx0a"put there for a reason. Don't stuff up crucial formulas " & _x0dx0a"or data." & DBLSPACE & "Access and use of some data " & _x0dx0a"may be an offense. If in doubt, don't."x0dx0aConst MSGNOPWORDS1 As String = "There were no passwords on " & _x0dx0a"sheets, or workbook structure or windows." & AUTHORS & VERSIONx0dx0aConst MSGNOPWORDS2 As String = "There was no protection to " & _x0dx0a"workbook structure or windows." & DBLSPACE & _x0dx0a"Proceeding to unprotect sheets." & AUTHORS & VERSIONx0dx0aConst MSGTAKETIME As String = "After pressing OK button this " & _x0dx0a"will take some time." & DBLSPACE & "Amount of time " & _x0dx0a"depends on how many different passwords, the " & _x0dx0a"passwords, and your computer's specification." & DBLSPACE & _x0dx0a"Just be patient! Make me a coffee!" & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _x0dx0a"Structure or Windows Password set." & DBLSPACE & _x0dx0a"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _x0dx0a"Note it down for potential future use in other workbooks by " & _x0dx0a"the same person who set this password." & DBLSPACE & _x0dx0a"Now to check and clear other passwords." & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _x0dx0a"password set." & DBLSPACE & "The password found was: " & _x0dx0aDBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _x0dx0a"future use in other workbooks by same person who " & _x0dx0a"set this password." & DBLSPACE & "Now to check and clear " & _x0dx0a"other passwords." & AUTHORS & VERSIONx0dx0aConst MSGONLYONE As String = "Only structure / windows " & _x0dx0a"protected with the password that was just found." & _x0dx0aALLCLEAR & AUTHORS & VERSION & REPBACKx0dx0aDim w1 As Worksheet, w2 As Worksheetx0dx0aDim i As Integer, j As Integer, k As Integer, l As Integerx0dx0aDim m As Integer, n As Integer, i1 As Integer, i2 As Integerx0dx0aDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integerx0dx0aDim PWord1 As Stringx0dx0aDim ShTag As Boolean, WinTag As Booleanx0dx0ax0dx0aApplication.ScreenUpdating = Falsex0dx0aWith ActiveWorkbookx0dx0aWinTag = .ProtectStructure Or .ProtectWindowsx0dx0aEnd Withx0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf Not ShTag And Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS1, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aMsgBox MSGTAKETIME, vbInformation, HEADERx0dx0aIf Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS2, vbInformation, HEADERx0dx0aElsex0dx0aOn Error Resume Nextx0dx0aDo 'dummy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0aWith ActiveWorkbookx0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & _x0dx0aChr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf .ProtectStructure = False And _x0dx0a.ProtectWindows = False Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND1, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aIf WinTag And Not ShTag Thenx0dx0aMsgBox MSGONLYONE, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aOn Error Resume Nextx0dx0aFor Each w1 In Worksheetsx0dx0a'Attempt clearance with PWord1x0dx0aw1.Unprotect PWord1x0dx0aNext w1x0dx0aOn Error GoTo 0x0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0a'Checks for all clear ShTag triggered to 1 if not.x0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf ShTag Thenx0dx0aFor Each w1 In Worksheetsx0dx0aWith w1x0dx0aIf .ProtectContents Thenx0dx0aOn Error Resume Nextx0dx0aDo 'Dummy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf Not .ProtectContents Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND2, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0a'leverage finding Pword by trying on other sheetsx0dx0aFor Each w2 In Worksheetsx0dx0aw2.Unprotect PWord1x0dx0aNext w2x0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext w1x0dx0aEnd Ifx0dx0aMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADERx0dx0aEnd Sub
二、excel表格打开密码破解的方法
在 Excel 中因为录入了过多的重要数据进而需要设置密码进行保护，但过了一段时间却忘记了打开密码，这个时候就需要进行破解打开密码的 方法 了。下面是由我分享的excel表格打开密码破解的方法，以供大家阅读和学习。
excel表格打开密码破解的方法：
破解打开密码步骤1：先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档，只需3秒钟!如果你真的不信，可以自己测试一下!
破解打开密码步骤2：当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式(同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”)，第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。
破解打开密码步骤3：如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码，你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解打开密码步骤4：WPS表格(用途相当于Excel)虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开!
