破解excel宏密码

用宏代码-破解工作表保护密码（VBAproject密码破解，很好用）网上有很多这个代码，但很多朋友并不太了解如何运用在此做了一些整理，希望对大家有所帮助！注：很多时候会因为忘记密码丢失重要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&_作者:McCormickJEMcGimpseyConstHEADERAsString=工作表保护密码破解ConstVERSIONAsString=DBLSPACE&版本Version1.1.1ConstREPBACKAsString=DBLSPACE&ConstZHENGLIAsString=DBLSPACE&hfhzi3—戊冥整理ConstALLCLEARAsString=DBLSPACE&该工作簿中的工作表密码保护已全部解除!!&DBLSPACE&请记得另保存_&DBLSPACE&注意：不要用在不当地方，要尊重他人的劳动成果！ConstMSGNOPWORDS1AsString=该文件工作表中没有加密ConstMSGNOPWORDS2AsString=该文件工作表中没有加密2ConstMSGTAKETIMEAsString=解密需花费一定时间,请耐心等候!&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=65To66Forl=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=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:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets'ChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66: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,HEADER'leveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo'Bypassallfor...nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK&ZHENGLI,vbInformation,HEADEREndSub=========================================================（图1）（图2）工作表保护密码破解放代码是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的，如上图是放在红色标号2[模块1]中