Excel中如何破解“撤销工作表保护密码”并获取原始密码

1、可编辑Excel中如何破解 “撤销工作表保护密码 ”并获取原始密码一、 保护工作表的方法1、 全选定工作表 右击设置单元格格式找到保护将锁定和隐藏两个的勾去掉；2、将要保护的工作表单元格选定右击设置单元格格式找到保护将锁定和隐藏两个的勾打上；3、 点菜单栏的工具中的保护里的保护工作表将保护工作表及锁定 的单元内容打上勾，下选允许此工作表的所有用户选定未锁定的单元格打上勾 二、Excel工作表保护密码破解方法（如果 Excel 文件的打开密码忘记了， 且密码是 6 位数以内的数字， 可 用以下步骤 解开（关掉所有程序，为了速度）：新开一 Excel，同时按 Alt 和 F11，进入 VBA 界面

2、，点菜单上的 插入，模块，在新出来的窗口粘贴一下代码：然后在此界面直接按 F5运行此宏，选择文件，等啊等（看密码长度 了）1 、打开您需要破解保护密码的 Excel 文件；2、依次点击菜单栏上的工具 - 宏- 录制新宏，输入宏名字如 :aa；3 、停止录制 （这样得到一个空宏 ）；4、 依次点击菜单栏上的工具 -宏-宏选 aa,点编辑按钮；5、删除窗口中的所有字符 （只有几个 ）,替换为下面的内容； 从横线下开始复制Option ExplicitPublic Sub AllInternalPasswords() Breaks worksheet and workbook structure p

3、asswords. Bob McCormick probably originator of base code algorithm modified for coverage of workbook structure / windows passwords and for multiple passwordsNorman 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 (Versio

4、n 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 McGimpseyConst HEADER As String = AllInternalPasswords User Mes

5、sageConst VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04Const REPBACK 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,

6、 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. Dont stuff up crucial formulas & _or data. & DBLSPACE & Access and

7、 use of some data & _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. & D

8、BLSPACE &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 specificatio

9、n. & DBLSPACE & _Just be patient! Make me a coffee! & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet & _ Structure or Windows Password set. & DBLSPACE & _ The password found was: & DBLSPACE & $ & DBLSPACE& _ Note it down for potenti

10、al future use in other workbooks by & _ the same person who set this password. & DBLSPACE &_ Now to check and clear other passwords. & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = You had a可编辑Worksheet & _ password set. & DBLSPACE & The password found was: &

11、 _ DBLSPACE & $ & DBLSPACE & Note itdown for potential & _ future use in other workbooks by same person who & _ set this password. & DBLSPACE & Now tocheck and clear & _ other passwords. & AUTHORS & VERSIONConst MSGONLYONE As String = Only structure / windows

12、& _ protected with the password that was just found. & _ALLCLEAR & AUTHORS & VERSION & REPBACK Dim 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 Intege

13、r, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinT ag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinT ag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShT ag Or w1.ProtectContentsNext w1If Not ShT ag And Not

14、 WinT ag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume Next可编辑Do 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:

15、 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 ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(

16、i6) & Chr(n)If .ProtectStructure = False And _.ProtectWindows = 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 Application.Substitute(MSGPWORDFOUND1, _$, PWord1

17、), vbInformation, HEADERExit Do Bypass all for.nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinT ag And Not ShT ag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd If可编辑On Error Resume NextFor Each w1 In Workshee

18、tsAttempt clearance with PWord1 w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In WorksheetsChecks for all clear ShT ag triggered to 1 if not.ShTag = ShT ag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo Dumm

19、y 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 126.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) &

20、 Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents 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 Application.Substitute(MSGPWORDFOUND2, _$, PWord1), vbInformation, HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do Bypass all for.nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: Nex