EXCEL工作表保护解密方法

EXCEL 工作表保护解密方法 1、新建一个EXCEL 文件“BOOK1”， 在工具栏空白位置，任意右击，选择Visual Basic 项， 弹出Visual Basic 工具栏： 2、在Visual Basic 工具栏中，点击“录制”按钮， 弹出“录制新宏”对话框，选择“个人宏工作簿”： 3、选择“个人宏工作簿”后按确定， 弹出如下“暂停”按钮，点击停止： 4、在Visual Basic 工具栏中，点击“编辑”按钮： 5、点击“编辑”按钮后，弹出如下图的编辑界面： 找到“VBAProject（ PERSONAL.XLS） －模块－模块1（也可能是模块N-其他数字）” 双击模块1－将右边代码内容清空 6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1” 7、运行需要解密的“EXCEL文件”，在Visual Basic 工具栏中，点击“运行”按钮 8、点击“运行”按钮后，弹出“宏”对话框， 点击运行“PERSONAL.XLS!工作保护密码破解”这个宏 9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后， 如下图示意就可以 解除工作表的密码保护了 （这个图，如果工作表中有多组不同密码， 每解开一组，就会提示一次，也就说可能会出现几次） 工作表保护密码破解(代码） =========请复制以下内容============= 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 1.1.1" 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 & _ "如果该文件工作表有不同密码,将搜索下一组密码并修改清...