如何破解EXCEL工作表保护密码忘记密码怎么办模板.docx

如何破解EXCEL工作表保护密码忘记密码怎么办如何破解EXCEL工作表保护密码忘记密码怎么办新建一个EXCEL工作表,而后点击另存为,讲表格保存为启用宏的工作表一次点击开发工具---录制新宏,在弹出的对话框内修改宏名称而后确定依次点击开发工具----停止录制宏,宏录制完成依次点击开发工具,---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面在VBA界面,全选里面的代码,而后删除,讲里面的代码全部删除完代码复制到VBA编辑窗口内PublicSubAllInternalPasswords() ' 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version) 'RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "ormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version2003-Apr-04" ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_ "tothenewsgroup." ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_ "nowbefreeofallpasswordprotection,somakesureyou:"&_ DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_ DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_ DBLSPACE&"Also,rememberthatthepasswordwas"&_ "'tstuffupcrucialformulas"&_ "ordata."&DBLSPACE&"Accessanduseofsomedata"&_ ",don't." ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_ "sheets,orworkbookstructureorwindows."&AUTHORS&VERSION ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_ "workbookstructureorwindows."&DBLSPACE&_ "Proceedingtounprotectsheets."&AUTHORS&VERSION ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_ "willtakesometime."&DBLSPACE&"Amountoftime"&_ "dependsonhowmanydifferentpasswords,the"&_ "passwords,puter'sspecification."&DBLSPACE&_ "Justbepatient!Makemeacoffee!"&AUTHORS&VERSION ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_ "StructureorWindowsPasswordset."&DBLSPACE&_ "Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_ "Noteitdownforpotentialfutureuseinotherworkbooksby"&_ "thesamepersonwhosetthispassword."&DBLSPACE