教你如何撤销工作表保护密码

-1-Excel,遗忘密码后如何撤销工作表保护密码工作表保护密码1、打开您需要撤销保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为以下内容；PublicSub工作表保护密码()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_作者:ericConstHEADERAsString=工作表保护密码ConstVERSIONAsString=DBLSPACE&版本Version1.1.1ConstREPBACKAsString=DBLSPACE&ConstZHENGLIAsString=DBLSPACE&ericConstALLCLEARAsString=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.ProtectContents-2-Nextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,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=False-3-ForEachw1InWorksheets'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,HEADEREndSub6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次，等候一两分钟,会出现以下对话框：这是Excel密码对应的原始密码(此密码和之前设置的密码均能打开此文档。