EXCEL密码破解工作表保护密码(详细图文教程).doc

EXCEL密码破解/破解工作表保护密码(详细图文教程)注：很多时候会因为忘记密码丢失重要EXCEL文件而烦恼，这份代码就能帮你找回，仅仅出之这个初衷，如因为这个代码让你感到不安全，那请加强电脑文件的密保，如用在不当的地方，后果自负！EXCEL密码破解/破解工作表保护密码1、新建一个EXCEL文件“BOOK1”，在工具栏空白位置，任意右击，选择VisualBasic项，弹出VisualBasic工具栏：2、在VisualBasic工具栏中，点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：3、选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：4、在VisualBasic工具栏中，点击“编辑”按钮：5、点击“编辑”按钮后，弹出如下图的编辑界面：找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）”双击模块1－将右边代码内容清空6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”7、运行需要解密的“EXCEL文件”，在VisualBasic工具栏中，点击“运行”按钮8、点击“运行”按钮后，弹出“宏”对话框，点击运行“PERSONAL.XLS!工作保护密码破解”这个宏9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后，如下图示意就可以解除工作表的密码保护了（这个图，如果工作表中有多组不同密码，每解开一组，就会提示一次，也就说可能会出现几次）工作表保护密码破解(代码）=========请复制以下内容=============PublicSub工作表保护密码破解()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:McCormickJEMcGimpsey"ConstHEADERAsString="工作表保护密码破解"ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1"ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"hfhzi3—戊冥整理"ConstALLCLEARAsString=DBLSPACE&"该工作簿中的工作表密码保护已全部解除!!"&DBLSPACE&"请记得另保存"_&DBLSPACE&"注意：不要用在不当地方，要尊重他人的劳动成果！"ConstMSGNOPWORDS1AsString="该文件工作表中没有加密"ConstMSGNOPWORDS2AsString="该文件工作表中没有加密2"ConstMSGTAKETIMEAsString="解密需花费一定时间,请耐心等候!"&DBLSPACE&"按确定开始破解!"ConstMSGPWORDFOUND1AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"ConstMSGPWORDFOUND2AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该文件工作表有不同密码,将搜索下一组密码并解除"ConstMSGONLYONEAsString="确保为唯一的?"Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDo'dummydoloopFori=65To66:Forj=65To66:Fork=65T