1. 首頁 > 生活百科 > >

如何破解excel文件密碼

生活百科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

猜你喜歡