EXCEL忘记密码怎么办EXCEL工作表怎么清除密码.docx

1、EXCEL忘记密码怎么办EXCEL工作表怎么清除密码 Prepared on 22 November 2020EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码如何破解EXCEL工作表保护密码1.工具-宏-录制新宏-输入名字如:hh2.3停止录制(这样得到一个空宏)3.4工具-宏-宏,选hh,点编辑按钮选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：1.点击“运行”按钮后，弹出“宏”对话框，2.点击运行“!工作保护密码破解”这个宏3.99、运行“!工作保护密码破解”这个宏后，如下图示意就可以解除工作表的密码保护了4.10（这个图，如果工作表中有多组不同密码，每解开一组，就会提

2、示一次，也就说可能会出现几次）5.11工作表保护密码破解(代码）=请复制以下内容=PublicSub工作表保护密码破解()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_作者:McCormickJEMcGimpseyConstHEADERAsString=工作表保护密码破解ConstVERSIONAsString=DBLSPACE&版本ConstREPBACKAsString=DBLSPACE&ConstZHENGLIAsString=DBLSPACE&hfhzi3戊冥整理Con

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

4、密码,将搜索下一组密码并修改清除ConstMSGPWORDFOUND2AsString=密码重新组合为:&DBLSPACE&$&DBLSPACE&_如果该文件工作表有不同密码,将搜索下一组密码并解除ConstMSGONLYONEAsString=确保为唯一的Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInte

5、gerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBoolean=FalseWithActiveWorkbookWinTag=.EndWithShTag=FalseForEachw1InWorksheetsShTag=Nextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDodummydoloop

6、Fori=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)=FalseAnd_.ProtectWindows=FalseThe

7、nPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)(MSGPWORDFOUND1,_$,PWord1),vbInformation,HEADERExitDoBypassallfor.nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxM

8、SGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheetsAttemptclearancewithPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheetsChecksforallclearShTagtriggeredto1ifnot.ShTag=Nextw1IfShTagThenForEachw1InWorksheetsWithw1OnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:

9、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)PWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&

10、Chr(i5)&Chr(i6)&Chr(n)(MSGPWORDFOUND2,_$,PWord1),vbInformation,HEADERleveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsNextw2ExitDoBypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK&ZHENGLI,vbInformation,HEADEREndSub