EXCEL密码去除(工作表、工作薄密码保护破解)

1、各位朋友不知道有没有碰到过这样的情况，当你要打开一个EXECL工作表时，突然发现密码忘记了，唯一可做的也许是搞个破解软件来破一下，但针对打开后的工作表保护，一般就很难有效了，复制虽是一种办法，但不少数据（特别是公式较多着），可能就要乱套了，入户才能破解这一类密码呢？不久前在网上发现此精华，与大家共享一下！利用宏运行方式破解，真的很有效，运行中可能电脑有两分钟无反应，千万不要以为死机了，步骤方法如下：打开文件工具宏-录制新宏-输入名字如：aa停止录制(这样得到一个空宏)工具宏-宏，选aa,点编辑按钮删除窗口中的所有字符(只有几个)，替换为下面的内容：(复制吧)关闭编辑窗口工具-宏-宏。选Alll

2、nternalPasswords,运行，确定两次，等两分钟，再确定，OK,没有密码了！宏内容如下：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