Excel—“撤销工作表保护密码”的破解并获取原始密码.docxVIP

Excel—“撤销工作表保护密码”的破解并获取原始密码 以下我为大家整理了Excel—“撤销工作表保护密码”的破解并获取原始密码，欢迎阅读。 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！  1、打开您需要破解保护密码的Excel文件；  2、依次点击菜单栏上的工具—宏----录制新宏，输入宏名字如:aa；  3、停止录制(这样得到一个空宏)；  4、依次点击菜单栏上的工具—宏----宏,选aa,点编辑按钮；  5、删除窗口中的所有字符(只有几个),替换为下面的内容；   从横线下开始复制  Option Explicit     Public Sub AllInternalPasswords()   Breaks worksheet 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-2021 (Version 1.1)   Modified 2021-Apr-04 by JEM: All msgs to constants, and   eliminate one Exit Sub (Version 1.1.1)   Reveals hashed passwords NOT original passwords   Const DBLSPACE As String = vbNewLine t stuff up crucial formulas t.   Const MSGNOPWORDS1 As String = There were no passwords on s specification. dummy do loop   For i = 65 To 66: For j = 65 To 66: For k = 65 To 66   For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66   For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66   For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126   With ActiveWorkbook   .Unprotect Chr(i) Bypass all for...nexts   End If   End With   Next: Next: Next: Next: Next: Next   Next: Next: Next: Next: Next: Next   Loop Until True   On Error GoTo 0   End If   If WinTag And Not ShTag Then   MsgBox MSGONLYONE, vbInformation, HEADER   Exit Sub   End If   On Error Resume Next   For Each w1 In Worksheets   Attempt clearance with PWord1