EXCEL忘记密码怎么办？EXCEL工作表格模板怎么清除密码

1、如何破解EXCELT作表保护密码1.工具-宏 录制新宏-输入名字如：hh录制新玄2. 3停止录制（这样得到一个空宏）3. 4工具一宏-宏，选hh,点编辑按钮精心整理说明宏由vant录制，时间二2014/4/23选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止:1.点击“运行”按钮后，弹出“宏”对话框，点击运行“ PERSONAL.XLS!作保护密码破解”这个宏2. 99、运行“ PERSONAL.XLS!作保护密码破解”这个宏后,如下图示意就可以解除工作表的密码保护了3. 10（这个图，如果工作表中有多组不同密码，每解开一组，就会提示一次，也就说可能会出现几次）工作表保护密码破解l

2、x密码重新祖合为: 如果谈文件工作费有不同密码,将搜索下一胆密码并解雌4. 11工作表保护密码破解（代码）I=请复制以下内容 =PublicSub工作表保护密码破解（）ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_”作者:McCormick JEMcGimpsey"ConstHEADERAsString='工作表保护密码破解"ConstVERSIONAsString=DBLSPACE®本 Version1.1.1&q

3、uot;ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"hfhzi3 一戊冥整理"ConstALLCLEARAsString=DBLSPACB&'工作簿中的工作表密码保护已全部解除 ！!"&DBLSPACE&"请记得另保存"_&DBLSPACE注意：不要用在不当地方，要尊重他人的劳动成果！"ConstMSGNOPWORDSIAsStrinig戌件工作表中没有加密"Const

4、MSGNOPWORDS2AsString=":件工作表中没有力口密 2"ConstMSGTAKETIMEAsString=单密需花费一定时间,请耐心等候！"&DBLSPACE&$确定开始破解!”ConstMSGPWORDFOUNDIAsString码重新组合为："&DBLSPACE&"$"&DBLSPACE&_ ”如果该文件工作表有不同密码，将搜索下一组密码并修改清除"ConstMSGPWORDFOUND2AsString码重新组合为："&DBLSPACE&a

5、mp;"$"&DBLSPACE&_ ”如果该文件工作表有不同密码，将搜索下一组密码并解除"ConstMSGONLYONEAsString确保为唯一的？”Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerrr / /b iIDimPWord1AsString

6、DimShTagAsBoolean,WinTagAsBooleanL 一Application.ScreenUpdating=FalseWithActiveWorkbookj J WinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIM

7、E,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDo'dummyd0100PFori=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(

8、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.

9、Substitute(MSGPWORDFOUND1,_"$",PWord1),vbInformation,HEADERExitDo'BypassallfornextsL 一EndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1In

10、Worksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoToOShTag=FalseForEachwIInWorksheets'ChecksforallclearShTagtriggeredtolifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'Dummyd0100PFori=65To66:Fo

11、rj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126L 一.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.ProtectConte

12、ntsThenPWord1=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'BypassallfornextsEndIfNext:Ne