EXCEL2007工作表保护密码破解

1、EXCEL工作表保护密码破解宏撤销保护图文教程hong点击“确定”按钮你好，这是我遇到类似问题时，上网找的。如果你遇到类似问题，也可以用以下方法进行处理，在这里感谢作者。1新建宏工具-宏-录制新宏随便输入个名字如2点击“停止录制”按钮或从菜单“停止录制”宏工具（X）|数据窗口址）帮助拼写检查FT-1a信息检索（）.Alt+Click错误检查.共享工作区.共享工作縛.保护1联机协作追）公式审核QJ）卜宏宏自定殳（）.J停止录制（）选项(jo).安全性3点击工具-宏-宏选择刚才所建的宏然后点击“编辑”按钮工具数据窗口址）帮助拼写检查E.FT+12信息检索迅.Alt+Click错误检查.共享工作医.

2、共享工作縛.保护（1）卜联机协作1卜I公式审核QJ）宏Z宏r*i*-*八1/宀4经过以上会弹出代码编写窗口5填写代码将下面的代码全部复制必替换原来的字符，填写完毕后关闭该窗口PublicSub工作表保护密码破解()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&作者:圣天ConstHEADERAsString=工作表保护密码破解ConstVERSIONAsString=DBLSPACE&版本Version1.1.1ConstREPBACKAsString=DBLSPACE&Cons

3、tZHENGLIAsString=DBLSPACE&XXXXXXXConstALLCLEARAsString=DBLSPACE&该工作簿中的工作表密码保护已全部解除!&DBLSPACE&请记得另保存_&DBLSPACE&注意：不要用在不当地方，要尊重他人的劳动成果！ConstMSGNOPWORDS1AsString=该文件工作表中没有加密ConstMSGNOPWORDS2AsString=该文件工作表中没有加密ConstMSGTAKETIMEAsString=解密需花费一定时间DBLSPACE&按确定开始破解!ConstMSGPWORDFOUND1AsString=密码重新组合为DBLSPAC

4、E&_如果该文件工作表有不同密码,将搜索下一组密码并修改清除ConstMSGPWORDFOUND2AsString=密码重新组合为DBLSPACE&_如果该文件工作表有不同密码,将搜索下一组密码并解除ConstMSGONLYONEAsString=确保为唯一的?Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,2,请耐心等候&DBLSPACE&$&DBLSPACE&$&AsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i

5、4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbIn

6、formation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDodummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126WithActiveWorkbook.UnprotectChr(i)&Chr

7、(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=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),vbInformatio

8、n,HEADERExitDoBypassallfor.nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheetsAttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorG

9、oTo0ShTag=FalseForEachw1InWorksheetsChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:

10、Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfNot.ProtectContentsThenPWord1=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(MSGPWORDFOUND2,_$,PWord1),vbInformation,HEADERleveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDoBypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next: