資源描述：
《破解excel保護工作表密碼方法》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。
1、各位朋友不知有沒有碰到過這樣的情況，當(dāng)要打開一個EXCEL工作表時，突然發(fā)現(xiàn)密碼忘記了，唯一可做的也許是搞個破解軟件來破一下，但針對打開后的工作表保護，一般就很難有效了，復(fù)制雖是一種方法，但不少數(shù)據(jù)（特別是公式較多者），可能就要亂套了，如何才能破解這一類密碼呢？不久前在網(wǎng)上發(fā)現(xiàn)此精華，與大家共享一下！利用宏運行方式破解，真的很有效，運行中可能電腦會有兩分鐘無反應(yīng)，千萬不要以為死機了哦，等等吧！步驟方法如下:1、打開文件2、工具---宏----錄制新宏---輸入名字如:aa3、停止錄制(這樣得到一個空宏)4、工具---宏----
2、宏,選aa,點編輯按鈕5、刪除窗口中的所有字符(只有幾個),替換為下面的內(nèi)容:(復(fù)制吧)6、關(guān)閉編輯窗口7、工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鐘,再確定.OK,沒有密碼了!!宏內(nèi)容如下：PublicSubAllInternalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcovera
3、ge'ofworkbookstructure/windowspasswordsandformultiplepasswords''NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewL
4、ine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasere
5、portfailure"&_"tothemicrosoft.public.excel.programmingnewsgroup."ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_"nowbefreeofallpasswordprotection,somakesureyou:"&_DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_DBLSPACE&"Also,re
6、memberthatthepasswordwas"&_"putthereforareason.Don'tstuffupcrucialformulas"&_"ordata."&DBLSPACE&"Accessanduseofsomedata"&_"maybeanoffense.Ifindoubt,don't."ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_"sheets,orworkbookstructureorwindows."&AUTHORS&VERSIONConst
7、MSGNOPWORDS2AsString="Therewasnoprotectionto"&_"workbookstructureorwindows."&DBLSPACE&_"Proceedingtounprotectsheets."&AUTHORS&VERSIONConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_"willtakesometime."&DBLSPACE&"Amountoftime"&_"dependsonhowmanydifferentpassword
8、s,the"&_"passwords,andyourcomputer'sspecification."&DBLSPACE&_"Justbepatient!Makemeacoffee!"&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString="Y
