資源描述：
《Excel文檔保護密碼破解方法.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應用文檔-天天文庫。
1、Excel文檔保護密碼破解方法1、運行Excel，打開有密碼保護的文檔；點擊工具菜單，選擇宏——visualbasic編輯器，如下圖1：（圖1）2、如未出現(xiàn)如下圖2，點擊“工程資源管理器圖標”，雙擊sheet1，出現(xiàn)圖3所示的編輯框，將代碼復制到編輯框中；圖2（圖3）代碼：SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsIntege
2、r,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsIntegerOnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Ch
3、r(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"Oneusablepasswordis"&Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ActiveWorkbook.Shee
4、ts(1).SelectRange("a1").FormulaR1C1=Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub3、點擊圖4中箭頭所指圖標，運行宏；等上幾秒或幾分，就會出現(xiàn)一個對話框，如圖5所示：如果出現(xiàn)公式出
5、錯提示，請將代碼先粘貼到其他文檔中，再復制粘貼即可。（圖5）現(xiàn)在的密碼就被破解了。A1單元格出現(xiàn)密碼需要刪除還原。
