excel解密三步法（办公技巧：Excel如何破解密码？（三步搞定）亲测有效）

2023-12-26 02:39

excel解密三步法（办公技巧：Excel如何破解密码？（三步搞定）亲测有效）

有时候我们会遇到excel无法编辑需要输入密码的情况，那么遇到这种问题如何解决呢？

步骤如下：

1.点击“视图”，找到【宏】，点击“查看宏”

（也可以去开发工具菜单栏找到’宏’）

2.先随便创建一个宏名，点击“创建”

3.创建后，会弹出一个vb界面，输入如下代码：（感谢大佬赐予代码）

PublicSub Password_cracking()ConstDBLSPACE As String = vbNewLine & vbNewLineConstAUTHORS As String = DBLSPACE & vbNewLine & _"Author - jnxxhzz "ConstHEADER As String = "Password_cracking"ConstVERSION As String = DBLSPACE & "  Version 1.0"ConstREPBACK As String = DBLSPACE & ""ConstZHENGLI As String = DBLSPACE & ""ConstALLCLEAR As String = DBLSPACE & "All password is clear" & DBLSPACE & "Please remember to save"ConstMSGNOPWORDS1 As String = "No password!"ConstMSGNOPWORDS2 As String = "No password!"ConstMSGTAKETIME As String = "This will take some time , please wait for a while" & DBLSPACE & "Press next to start"ConstMSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"Ifthe file worksheet has a different password, it will search for the next set of passwords and release"ConstMSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"Ifthe file worksheet has a different password, it will search for the next set of passwords and release"ConstMSGONLYONE As String = ""Dimw1 As Worksheet, w2 As WorksheetDimi As Integer, j As Integer, k As Integer, l As IntegerDimm As Integer, n As Integer, i1 As Integer, i2 As IntegerDimi3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDimPWord1 As StringDimShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructure Or .ProtectWindowsEndWithShTag=FalseForEach w1 In WorksheetsShTag=ShTag Or w1.ProtectContentsNextw1IfNot ShTag And Not WinTag ThenMsgBoxMSGNOPWORDS1, vbInformation, HEADERExitSubEndIfMsgBoxMSGTAKETIME, vbInformation, HEADERIfNot WinTag ThenElseOnError Resume NextDo'dummy do loopFori = 65 To 66: For j = 65 To 66: For k = 65 To 66Forl = 65 To 66: For m = 65 To 66: For i1 = 65 To 66Fori2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66Fori5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126WithActiveWorkbook.UnprotectChr(i) & Chr(j) & Chr(k) & _Chr(l)& Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3)& Chr(i4) & Chr(i5) & Chr(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)MsgBoxApplication.Substitute(MSGPWORDFOUND1, _"$$",PWord1), vbInformation, HEADERExitDo 'Bypass all for...nextsEndIfEndWithNext:Next: Next: Next: Next: NextNext:Next: Next: Next: Next: NextLoopUntil TrueOnError GoTo 0EndIfIfWinTag And Not ShTag ThenMsgBoxMSGONLYONE, vbInformation, HEADERExitSubEndIfOnError Resume NextForEach w1 In Worksheets'Attemptclearance with PWord1w1.UnprotectPWord1Nextw1OnError GoTo 0ShTag=FalseForEach w1 In Worksheets'Checksfor all clear ShTag triggered to 1 if not.ShTag=ShTag Or w1.ProtectContentsNextw1IfShTag ThenForEach w1 In WorksheetsWithw1If.ProtectContents ThenOnError Resume NextDo'Dummy do loopFori = 65 To 66: For j = 65 To 66: For k = 65 To 66Forl = 65 To 66: For m = 65 To 66: For i1 = 65 To 66Fori2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66Fori5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126.UnprotectChr(i) & Chr(j) & Chr(k) & _Chr(l)& Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4)& Chr(i5) & Chr(i6) & Chr(n)IfNot .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)MsgBoxApplication.Substitute(MSGPWORDFOUND2, _"$$",PWord1), vbInformation, HEADER'leveragefinding Pword by trying on other sheetsForEach w2 In Worksheetsw2.UnprotectPWord1Nextw2ExitDo 'Bypass all for...nextsEndIfNext:Next: Next: Next: Next: NextNext:Next: Next: Next: Next: NextLoopUntil TrueOnError GoTo 0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADEREndSub