資源描述：
《宏密碼破解方法.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、VBA宏代碼破解法： 第一步：打開(kāi)該文件，先解除默認(rèn)的“宏禁用”狀態(tài)，方法是點(diǎn)擊工具欄下的“選項(xiàng)”狀態(tài)按鈕，打開(kāi)“MicrosoftOffice安全選項(xiàng)”窗口，選擇其中的“啟用此內(nèi)容”，“確定”退出(圖2)； 再切換到“視圖”選項(xiàng)卡，點(diǎn)擊“宏”→“錄制宏”，出現(xiàn)“錄制新宏”窗口，在“宏名”定義一個(gè)名稱為：PasswordBreaker(圖3)，點(diǎn)擊“確定”退出； 第二步：再點(diǎn)擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”并點(diǎn)擊“編輯”，打開(kāi)“MicrosoftVisualBasi
2、c”編輯器，用如下內(nèi)容替換右側(cè)窗口中的所有代碼： SubPasswordBreaker() DimiAsInteger,jAsInteger,kAsInteger DimlAsInteger,mAsInteger,nAsInteger Dimi1AsInteger,i2AsInteger,i3AsInteger Dimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNext Fori=65To66:Forj=65To66:Fork=65To66
3、Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_ Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) IfActiveSheet.ProtectC
4、ontents=FalseThen MsgBox"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.Sheets(1).Select Range("a1").FormulaR1C1=Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_
5、Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) ExitSub EndIf Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next EndSub 第三步：再點(diǎn)擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”并點(diǎn)擊“執(zhí)行”，密碼就現(xiàn)形了(圖4)?！ 〉谒牟剑呵袚Q“審閱”選項(xiàng)卡，點(diǎn)擊“撤消工作表保護(hù)”，然后輸入密碼即可解除鎖定。
