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

EXCELÃÜÂëÈ¥³ý£¨¹¤×÷±í¡¢¹¤×÷±¡ÃÜÂë±£»¤Æƽ⣩2008-12-1513:25:07|·ÖÀࣺ°ì¹«ÃØóÅ|±êÇ©£º|×ֺŴóÖÐС¶©ÔÄ.¸÷λÅóÓѲ»ÖªÓЛ]ÓÐÅöµ½¹ýÕâÑùµÄÇé¿ö£¬µ±Òª´òŽÔÒ»¸öEXCEL¹¤×÷±íʱ£¬Í»È»·¢ÏÖÃÜ´aÍü¼ÇÁË£¬Î¨Ò»¿É×öµÄÒ²ÐíÊǸã¸öÆƽâÈí¼þÀ´ÆÆһϣ¬µ«Õë¶Ô´òŽÔºóµÄ¹¤×÷±í±£»¤£¬Ò»°ã¾ÍºÜÄÑÓÐЧÁË£¬¸´ÖÆËäÊÇÒ»ÖÖ·½·¨£¬µ«²»ÉÙÊý¾Ý£¨ÌØ„eÊǹ«Ê½½Ï¶àÕߣ©£¬¿ÉÄܾÍÒªÂÒÌ×ÁË£¬ÈçºÎ²ÅÄÜÆƽâÕâÒ»ÀàÃÜÂëÄØ£¿²»¾ÃÇ°ÔÚÍøÉÏ·¢Ïִ˾«»ª£¬Óë´ó¼Ò¹²Ïíһϣ¡ÀûÓúêÔËÐз½Ê½Æƽ⣬ÕæµÄºÜÓÐЧ£¬ÔËÐÐÖпÉÄܵçÄÔ»áÓÐÁ½·ÖÖÓÎÞ·´Ó¦£¬Ç§Èf²»ÒªÒÔΪËÀ»úÁËŶ£¬µÈµÈ°É£¡²½Öè·½·¨ÈçÏÂ:1¡¢´ò¿ªÎļþ2¡¢¹¤¾ß---ºê----¼ÖÆкê---ÊäÈëÃû×ÖÈç:aa3¡¢Í£Ö¹Â¼ÖÆ(ÕâÑùµÃµ½Ò»¸ö¿Õºê)4¡¢¹¤¾ß---ºê----ºê,Ñ¡aa,µã±à¼­°´Å¥5¡¢É¾³ý´°¿ÚÖеÄËùÓÐ×Ö·û(Ö»Óм¸¸ö),Ì滻ΪÏÂÃæµÄÄÚÈÝ:(¸´ÖÆ°É)6¡¢¹Ø±Õ±à¼­´°¿Ú7¡¢¹¤¾ß---ºê-----ºê,Ñ¡AllInternalPasswords,ÔËÐÐ,È·¶¨Á½´Î,µÈ2·ÖÖÓ,ÔÙÈ·¶¨.OK,ûÓÐÃÜÂëÁË!!ºêÄÚÈÝÈçÏ£ºPublicSubAllInternalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformultiplepasswords''NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_AdaptedfromBobMcCormickbasecodeby&_NormanHarkerandJEMcGimpseyConstHEADERAsString=AllInternalPasswordsUserMessageConstVERSIONAsString=DBLSPACE&Version1.1.12003-Apr-04ConstREPBACKAsString=DBLSPACE&Pleasereportfailure&_tothemicrosoft.public.excel.programmingnewsgroup.ConstALLCLEARAsString=DBLSPACE&Theworkbookshould&_nowbefreeofallpasswordprotection,somakesureyou:&_DBLSPACE&SAVEITNOW!&DBLSPACE&andalso&_DBLSPACE&BACKUP!,BACKUP!!,BACKUP!!!&_DBLSPACE&Also,rememberthatthepasswordwas&_putthereforareason.Don'tstuffupcrucialformulas&_ordata.&DBLSPACE&Accessanduseofsomedata&_maybeanoffense.Ifindoubt,don't.ConstMSGNOPWORDS1AsString=Therewerenopasswordson&_sheets,orworkbookstructureorwindows.&AUTHORS&VERSIONConstMSGNOPWORDS2AsString=Therewasnoprotectionto&_workbookstructureorwindows.&DBLSPACE&_Proceedingtounprotectsheets.&AUTHORS&VERSIONConstMSGTAKETIMEAsString=AfterpressingOKbuttonthis&_willtakesometime.&DBLSPACE&Amountoftime&_dependsonhowmanydifferentpasswords,the&_passwords,andyourcomputer'sspecification.&DBLSPACE&_Justbepatient!Makemeacoffee!&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString=YouhadaWorksheet&_StructureorWindowsPasswordset.&DBLSPACE&_Thepasswordfoundwas:&DBLSPACE&$$&DBLSPACE&_Noteitdownforpotentialfutureuseinotherworkbooksby&_thesamepersonwhosetthispassword.&DBLSPACE&_Nowtocheckandclearotherpasswords.&AUTHORS&VERSIONConstMSGPWORDFOUND2AsString=YouhadaWorksheet&_passwordset.&DBLSPACE&Thepasswordfoundwas:&_DBLSPACE&$$&DBLSPACE&Noteitdownforpotential&_futureuseinotherworkbooksbysamepersonwho&_setthispassword.&DBLSPACE&Nowtocheckandclear&_otherpasswords.&AUTHORS&VERSIONConstMSGONLYONEAsString=Onlystructure/windows&_protectedwiththepasswordthatwasjustfound.&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNextDo'dummydoloopFori=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(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)If.ProtectStructure=FalseAnd_.ProtectWindows=FalseThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND1,_$$,PWord1),vbInformation,HEADERExitDo'Bypassallfor...nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets'ChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfNot.ProtectContentsThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2,_$$,PWord1),vbInformation,HE