文档介绍：Revised by Petrel at 2021
EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码
如何破解EXCEL工作表保护密码
工具---宏----录制新宏---输入名字如:hh
3
停止录制(这样得到一个空宏)
4
工具---宏----宏,选hh,点编辑按钮?
选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：
点击“运行”按钮后，弹出“宏”对话框，
     点击运行“!工作保护***”这个宏
9
9、运行“!工作保护***”这个宏后，      如下图示意就可以 解除工作表的密码保护了
10
（这个图，如果工作表中有多组不同密码，    每解开一组，就会提示一次，也就说可能会出现几次）
11
工作表保护***(代码）
=========请复制以下内容=============
Public Sub 工作表保护***()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick   JE McGimpsey "
Const HEADER As String = "工作表保护***"
Const VERSION As String = DBLSPACE & "版本 Version
"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "                   hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integ