[EXCEL工作表保护解密方法.docVIP

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 vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _作者:McCormick?? JE McGimpsey Const HEADER As String = 工作表保护密码破解Const VERSION As String = DBLSPACE 版本 Version 1.1.1Const 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 = 该文件工作表中没有加密2Const 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 WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not S