资源描述：
《excel工作表保护密码破解 宏撤销保护图文教程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、EXCEL工作表保护密码破解宏撤销保护图文教程情况是EXECL能打开但不能进行编辑。1新建宏工具-宏-录制新宏随便输入个名字如hong点击“确定”按钮2点击“停止录制”按钮或从菜单“停止录制”宏3点击工具-宏-宏选择刚才所建的宏然后点击“编辑”按钮4经过以上会弹出代码编写窗口5填写代码将下面的代码全部复制必替换原来的字符，填写完毕后关闭该窗口PublicSub工作表保护密码破解()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:圣天"ConstHEADERAsSt
2、ring="工作表保护密码破解"ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1"ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"XXXXXXX"ConstALLCLEARAsString=DBLSPACE&"该工作簿中的工作表密码保护已全部解除!!"&DBLSPACE&"请记得另保存"_&DBLSPACE&"注意：不要用在不当地方，要尊重他人的劳动成果！"ConstMSGNOPWORDS1AsString="该文件工作表中没有加密"ConstMSGNOPWORDS2
3、AsString="该文件工作表中没有加密2"ConstMSGTAKETIMEAsString="解密需花费一定时间,请耐心等候!"&DBLSPACE&"按确定开始破解!"ConstMSGPWORDFOUND1AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"ConstMSGPWORDFOUND2AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该文件工作表有不同密码,将搜索下一组密码并解除"ConstMSGONLYONEAsString="确保为
4、唯一的?"Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectSt
5、ructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDo'dummydoloopFori=65To66:Forj=65To66:Fork=65
6、To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126WithActiveWorkbook.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)If.ProtectStructure=FalseAnd_.ProtectWindows=FalseThenPWord1=
7、Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND1,_"$$",PWord1),vbInformation,HEADERExitDo'Bypassallfor...nextsEndIfEndWithNext:Next:Next:N
