資源描述:
《如何破解excel工作表保護密碼忘記密碼怎么辦》由會員上傳分享,免費在線閱讀,更多相關內(nèi)容在教育資源-天天文庫。
1、如何破解EXCEL工作表保護密碼忘記密碼怎么辦1.新建一個EXCEL工作表,而后點擊另存為,講表格保存為啟用宏的工作表2.一次點擊開發(fā)工具---錄制新宏,在彈出的對話框內(nèi)修改宏名稱而后確定3.依次點擊開發(fā)工具----停止錄制宏,宏錄制完成1.依次點擊開發(fā)工具,---宏----在彈出的對話框找到我們剛才錄制的宏名稱而后進入VBA界面2.在VBA界面,全選里面的代碼,而后刪除,講里面的代碼全部刪除完1.代碼復制到VBA編輯窗口內(nèi)PublicSubAllInternalPasswords()?'Breaksworksheetandworkbookstructurepasswords.
2、BobMcCormick?'probablyoriginatorofbasecodealgorithmmodifiedforcoverage?'ofworkbookstructure/windowspasswordsandformultiplepasswords?'?'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)?'Modified2003-Apr-04byJEM:Allmsgstoconstants,and?'eliminateoneExitSub(Version1.1.1)?'Revealshashedpasswords
3、NOToriginalpasswords?ConstDBLSPACEAsString=vbNewLine&vbNewLine?ConstAUTHORSAsString=DBLSPACE&vbNewLine&_?"AdaptedfromBobMcCormickbasecodeby"&_?"NormanHarkerandJEMcGimpsey"?ConstHEADERAsString="AllInternalPasswordsUserMessage"?ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"?ConstREPBA
4、CKAsString=DBLSPACE&"Pleasereportfailure"&_?"tothemicrosoft.public.excel.programmingnewsgroup."?ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_?"nowbefreeofallpasswordprotection,somakesureyou:"&_?DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_?DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_?DBLSPACE
5、&"Also,rememberthatthepasswordwas"&_?"putthereforareason.Don'tstuffupcrucialformulas"&_?"ordata."&DBLSPACE&"Accessanduseofsomedata"&_?"maybeanoffense.Ifindoubt,don't."?ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_?"sheets,orworkbookstructureorwindows."&AUTHORS&VERSION?ConstMSGNOPWORDS
6、2AsString="Therewasnoprotectionto"&_?"workbookstructureorwindows."&DBLSPACE&_?"Proceedingtounprotectsheets."&AUTHORS&VERSION?ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_?"willtakesometime."&DBLSPACE&"Amountoftime"&_?"dependsonhowmanydifferentpasswords,the"&_?"passwords,andyourcompu
7、ter'sspecification."&DBLSPACE&_?"Justbepatient!Makemeacoffee!"&AUTHORS&VERSION?ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_?"StructureorWindowsPasswordset."&DBLSPACE&_?"Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_?"Noteitdownforpotentialfutur