EXCEL工作表保护密码破解和如何破解VBAProject属性的保护密码如果你是要破解EXCEL工作表保护密码，请按“EXCEL工作表保护密码破解”操作，若在录制宏时，要求输入VBAProject密码，请先按后面的“如何破解VBAProject属性的保护密码”破解VBAProject密码，然后再按“EXCEL工作表保护密码破解”操作即可。如果你是要破解VBAProject属性的保护密码，请直接按后面的“如何破解VBAProject属性的保护密码”的步骤操作。过程可能有些繁琐，但是本人亲测可行，祝你成功!!!EXCEL工作表保护密码破解方法: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=vbNewLinevbNewLineConstAUTHORSAsString=DBLSPACEvbNewLine_"AdaptedfromBobMcCormickbasecodeby"_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVERSIONAsString=DBLSPACE"Version1.1.12003-Apr-04"ConstREPBACKAsString=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."AUTHORSVERSIONConstMSGNOPWORDS2AsString="Therewasnoprotectionto"_"workbookstructureorwindows."DBLSPACE_"Proceedingtounprotectsheets."AUTHORSVERSIONConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"_"willtakesometime."DBLSPACE"Amountoftime"_"dependsonhowmanydifferentpasswords,the"_"passwords,andyourcomputer'sspecification."DBLSPACE_"Justbepatient!Makemeacoffee!"AUTHORSVERSIONConstMSGPWORDFOUND1AsString="YouhadaWorksheet"_"StructureorWindowsPasswordset."DBLSPACE_"Thepasswordfoundwas:"DBLSPACE"$$"DBLSPACE_"Noteitdownforpotentialfutureuseinotherworkbooksby"_"thesamepersonwhosetthispassword."DBLSPACE_"Nowtocheckandclearotherpasswords."AUTHORSVERSIONConstMSGPWORDFOUND2AsString="YouhadaWorksheet"_"passwordset."DBLSPACE"Thepasswordfoundwas:"_DBLSPACE"$$"DBLSPACE"Noteitdownforpotential"_"futureuseinotherworkbooksbysamepersonwho"_"setthispassword."DBLSPACE"Nowtocheckandclear"_"otherpasswords."AUTHORSVERSIONConstMSGONLYONEAsString="Onlystructure/windows"_"protectedwiththepasswordthatwasjustfound."_ALLCLEARAUTHORSVERSIONREPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWi...