得力打卡机破解Excel工作表保护密码

1、Excel中如何破解撤销工作表保护密码”并获取原始密码一、保护工作表的方法1、全选定工作表 右击设置单元格格式找到保护将锁定和隐藏两个的勾去掉；2、 将要保护的工作表单元格选定右击设置单元格格式找到保护将锁定 和隐藏两个的勾打上；3、点菜单栏的工具中的保护里的保护工作表将保护工作表及锁定 的单元内容打上勾，下选允许此工作表的所有用户选定未锁定的单元格打上勾二、Excel工作表保护密码破解方法1、 打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具 -宏一录制新宏，输入宏名字如：aa;3、停止录制（这样得到一个空宏）；4、依次点击菜单栏上的工具 -宏-宏,选aa点编辑按钮；5、删

2、除窗口中的所有字符（只有几个），替换为下面的内容；从横线下开始复制Opti on ExplicitPublic Sub Alli nternalPasswords()Breaks worksheet and workbook structure passwords. Bob McCormickprobably origi nator of base code algorithm modified for coverageof workbook structure / win dows passwords and for multiple passwords Norman Harker and

3、JE McGimpsey 27-Dec-2002 (Versio n 1.1)Modified 2003-Apr-04 by JEM: All msgs to con sta nts, andeliminate one Exit Sub (Version 1.1.1)Reveals hashed passwords NOT orig inal passwordsCon st DBLSPACE As Stri ng = vbNewLi ne & vbNewLi neConst AUTHORS As Stri ng = DBLSPACE & vbNewLi ne & _Adapted from B

4、ob McCormick base code by & _Norman Harker and JE McGimpseyCo nst HEADER As Stri ng = Alli nternalPasswords User MessageConst VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04 Con st REPBACK As Stri ng = DBLSPACE & Please report failure & _ to the gramming newsgroup.

5、Const ALLCLEAR As Stri ng = DBLSPACE & The workbook should & _now be free of all password protect ion, 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 reas on. Dont stu

6、ff up crucial formulas & _or data. & DBLSPACE & Access and use of some data & _may be an offen se. If in doubt, dont.Con st MSGNOPWORDS1 As String = There were no passwords on & _ sheets, or workbook structure or win dows. & AUTHORS & VERSION Con st MSGNOPWORDS2 As String = There was no protection t

7、o & _ workbook structure or win dows. & DBLSPACE & _Proceedi ng to un protect sheets. & AUTHORS & VERSIONCon st MSGTAKETIME As Stri ng = After pressi ng OK button this & _ will take some time. & DBLSPACE & Amount of time & _ depe nds on how many differe nt passwords, the & _ passwords, and your comp

8、uters specificati on. & DBLSPACE & _ Just be patie nt! Make me a coffee! & AUTHORS & VERSIONCon st MSGPWORDFOUND1 As Stri ng = You had a Worksheet & _ Structure or Win dows Password set. & DBLSPACE & _ The password found was: & DBLSPACE & $ & DBLSPACE & _ Note it down for potential future use in oth

9、er workbooks by & _ the same person who set this password. & DBLSPACE & _ Now to check and clear other passwords. & AUTHORS & VERSION Con st MSGPWORDFOUND2 As Stri ng = You had a Worksheet & _ password set. & DBLSPACE & The password fou nd was: & _ DBLSPACE & $ & DBLSPACE & Note it dow n for pote nt

10、ial & _ future use in other workbooks by same pers on who & _ set this password. & DBLSPACE & Now to check and clear & _ other passwords. & AUTHORS & VERSIONConst MSGONL YONE As String = Only structure / windows & _ protected with the password that was just foun d. & _ ALLCLEAR & AUTHORS & VERSION &

11、 REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As In teger, j As In teger, k As In teger, l As In tegerDim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As In teger, i4 As In teger, i5 As In teger, i6 As In teger Dim PWord1 As Stri ngDim ShTag As Boolea n, WinTag As Boolea nAppl

12、icati on. Scree nU pdati ng = FalseWith ActiveWorkbookWinTag = P rotectStructure Or . ProtectWi ndowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectCo ntentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbln formatio n, HEADERExit SubEnd IfMsgBox MSGTAKETIME,

13、vbI nformatio n, HEADERIf Not Win Tag The nMsgBox MSGNOPWORDS2, vbln formatio n, 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 i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 T

14、o 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .P rotectStructure = False And _P rotectWi ndows = False The nPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr

15、(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr( n)MsgBox Applicati on .Substitute(MSGPWORDFOUND1, _$, PWord1), vbI nformatio n, HEADERExit Do Bypass all for. nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Un til TrueOn Error GoTo 0

16、End IfIf WinTag And Not ShTag The nMsgBox MSGONL YONE, vblnformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt cleara nee with PWord1w1.U nprotect PWordlNext w1On Error GoTo 0ShTag = FalseFor Each w1 In WorksheetsChecks for all clear ShTag triggered to 1 if not.ShTag

17、= ShTag Or wl.ProtectCo ntentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .P rotectC on te nts The nOn 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 = 6

18、5 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) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr( n)If Not P rotectC on te nts The nPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3

19、) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr( n)MsgBox Applicati on .Substitute(MSGPWORDFOUND2, _$, PWord1), vbI nformatio n, HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.U nprotect PWord1Next w2Exit Do Bypass all for. nextsEnd IfNext: Next: Next: Next: Next: NextNext:

20、 Next: Next: Next: Next: NextLoop Un til TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbln formatio n, HEADEREnd Sub复制到横线以上6、关闭编辑窗口；7、依次点击菜单栏上的工具 -宏宏，选AllInternalPasswords,运行，确定两次；等一会,就会出现以下对话框：这就是Excel密码对应的原始密码（此密码和原先设置的密码都能打开此文档。如果是别人的文档， 你又想恢复密码设置， 就可以用此密码进行保护， 他就能用他