如何破解excel文件密码

问题补充说明:
我就用我自己的加密的excel文件叫大家怎么破解清除excel密码 , 首先打开有自己加密的excel文档 , 如下图:

如何破解excel文件密码

文章插图
exc360问答el2010和以前的版本有所不同 , 功能更人性化 , 更智能化 。首先我们要做的是 , 加载宏文件 , excel为宏设置默认是关闭的 , 我们要启用宏 , 就必须开启宏;“文件”下的子菜单”选项孔销绝装士团抗“
如下图所示:
如何破解excel文件密码

文章插图
点击“选项”选择子菜单下“信任中心”“宏设置”在宏设置下 。选择“启用所以宏”然后点击“确定”
如下图所示:
如何破解excel文件密码

文章插图
点击“视图”在右下面我们会看“宏”打开宏 , 如下图所示:
如何破解excel文件密码

文章插图
现在我们就开始录制新宏 , 宏名:随便填 , 我这么久填密码 , 保存在:束认久致判圆口西主选择当前工作薄 , 说明可以不山超界告酒末植确执填 。
如下图所示:
如何破解excel文件密码

文章插图
我们在宏工作薄阻苗角员节中 , 把一下宏程序写进去 。
OptionExplicit
PublicSubAllInt次设思黑ernalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformulti女端良基渐子界谈plepasswords''NormanHarkerandJEMcGimpsey27-Dec-200使答移响元后开难易所个2(Version1.1)'Modified2003-Apr-04byJ出线EM:Allmsgstocon强乡技stants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOToriginalpassw革述地往ordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSA北sString=DBLSPA甚交同着滑植卷独配CE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkera儿势ndJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVER令至功阶却能起SIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"ConstREPBACKAsString=DBLS太滑行PACE&"Pleaser击滑eportfailure"&_"tothemicrosoft.public.excel.programmingnewsgroup."ConstALLCLEARAsStr袁路程续石引断究减参绿ing=DBLSPACE&"Theworkbookshould"&_"nowbefreeofallpasswordprotect深说要督可娘青率维ion,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,WinTagAsBoolean

推荐阅读