如何破解EXCEL中的密码（在此提供2种方法）方法一在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；OptionExplicitPublicSubAllInternalPasswords()'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=FalseWithActiveWorkbook---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---WinTag=.ProtectStructureOr.ProtectWindowsEndW...