EXCEL密碼去除(工作表、工作薄密碼保護(hù)破解)

1、各位朋友不知道有沒(méi)有碰到過(guò)這樣的情況，當(dāng)你要打開(kāi)一個(gè)EXECL工作表時(shí)，突然發(fā)現(xiàn)密碼忘記了，唯一可做的也許是搞個(gè)破解軟件來(lái)破一下，但針對(duì)打開(kāi)后的工作表保護(hù)，一般就很難有效了，復(fù)制雖是一種辦法，但不少數(shù)據(jù)（特別是公式較多著），可能就要亂套了，入戶才能破解這一類密碼呢？不久前在網(wǎng)上發(fā)現(xiàn)此精華，與大家共享一下！利用宏運(yùn)行方式破解，真的很有效，運(yùn)行中可能電腦有兩分鐘無(wú)反應(yīng)，千萬(wàn)不要以為死機(jī)了，步驟方法如下：打開(kāi)文件工具宏-錄制新宏-輸入名字如：aa停止錄制(這樣得到一個(gè)空宏)工具宏-宏，選aa,點(diǎn)編輯按鈕刪除窗口中的所有字符(只有幾個(gè))，替換為下面的內(nèi)容：(復(fù)制吧)關(guān)閉編輯窗口工具-宏-宏。選Alll

2、nternalPasswords,運(yùn)行，確定兩次，等兩分鐘，再確定，OK,沒(méi)有密碼了！宏內(nèi)容如下：PublicSubAllInternalPasswords()Breaksworksheetandworkbookstructurepasswords.BobMcCormickprobablyoriginatorofbasecodealgorithmmodifiedforcoverageofworkbookstructure/windowspasswordsandmultiplepasswordsNormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)Mo

3、dified2003-Apr-04byJEM:Allmsgstoconstants,andeliminateoneExitSub(Version1.1)RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_AdaptedformBobMcCormickbasecodeby&_NormanHarkerandJEMcGimpseyConstHEADERAsString=AllInternalPassword

4、sUserMessageConstVERSIONAsString=DBLSPACE&Version1.1.12003-Apr-04ConstREPBACKAsString=DBLSPACE&Pleasereportfailure&_grammingnewsgroup.ConstALLCLEARAsString=DBLSPACE&Theworkbookshould&_nowbefreeofallpasswordproteection,somakesureyou:&_DBLSPACE&SAVEITNOW!&DBLSPACE&andalso&_DBLSPACE&BACKUP!,BACKUP!,BAC

5、KUP&_DBLSPACE&Also,rememberthatthepasswordwas&_putthereforareason.Dontstuffupcrucialformulas&_ordate/&DBLSPACE&Accessanduseofsomedata&_maybeanoffense.Ifindoubt,dont.ConstMSGNOPWPRDS1AsString=Therewerenopasswordson&_sheet,orworkbookstrutureorwindows.&AUTHORS&VERSIONConstMSGNOPWORD2AsString=Therewasno

6、protectionto&_workbookstructureorwindows.&DBLSPACE&_Proceedingtounprotectsheets.&AUTHORS&VERSIONConstMSGTAKETIMEAsString=AfterpressingOKbuttonthis&willtakesometime.&DBLSPACE&Amountoftime&_dependsonhowmanydifferentpasswords,the&_passwords,andyourcomputersspecification.&DBLSPACE&_Justbepatient!Makemea

7、coffee!&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString=YouhadaWorksheet&_StructureorWindowsPasswordset.&DBLSPACE&_Thqpasswordfoundwas:&DBLSPACE&$&DBLSPACE&_Noteitdownforpotentialfutureuseinotherworkbooksby&_thesamepersonwhosetthispassword.&DBLSPACE&_Nowtocheckandclearotherpasswords.&AUTHORS&VERSIONConst

8、MSGPWORDFOUND2AsString=YouhadaWorksheet&_passwordset.&DBLSPACE&Thepasswordfoundwas:&_DBLSPACE&DBLSPACE&Noteitdownforpotential&futureuseinotherworkbooksbysamepersonwho&_setthispassword.&DBLSPACE&Nowtocheckandclear&_otherpasswords.&AUTHORS&VERSIONConstMSGONLYONEAsString=Onlystructure/windows&_protecte

9、dwiththepasswordthatwasjustfound.&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplicati

10、on.ScreenUpdating=FalseWithActiveWorkbookWinTag=ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPW

11、ORDS2,vbInformation,HEADERElseOnErrorResumeNextDodummydoloopFori=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(1)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(

12、i4)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)If.ProtectStructure=FalseAnd_.ProtectWindows=FalseThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(1)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND1,_$,PWord1),vbInformation,HEADERExitDoBypassallfor.nextsEndIfEndWithNex

13、t:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheetsAttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheetsChecksforal

14、lclearShTagtrifferedto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To

15、126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(1)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfNot.ProtectContentsThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(1)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2,_$,PWord1),vbInformation,HEADERleverragefindingPwordbytryingonothersheetsForEachw2InWorksheet