文档介绍:如何破解EXCEL工作表保护密码工具---宏----录制新宏---输入名字如:hh步骤阅读3停止录制(这样得到一个空宏) 步骤阅读4工具---宏----宏,选hh,点编辑按钮 选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:点击“运行”按钮后,弹出“宏”对话框,   点击运行“!工作保护***”这个宏步骤阅读99、运行“!工作保护***”这个宏后,   如下图示意就能够解除工作表的密码保护了步骤阅读10(这个图,如果工作表中有多组不同密码,  每解开一组,就会提示一次,也就说可能会出现几次)步骤阅读步骤阅读11工作表保护***(代码)=========请复制以下内容=============PublicSub工作表保护***()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:McCormick JEMcGimpsey"ConstHEADERAsString="工作表保护***"ConstVERSIONAsString=DBLSPACE&""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,=FalseWithActiveWorkbookWinTag=.