資源描述：
《宏密碼破解方法.doc》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、VBA宏代碼破解法： 第一步：打開該文件，先解除默認的“宏禁用”狀態(tài)，方法是點擊工具欄下的“選項”狀態(tài)按鈕，打開“MicrosoftOffice安全選項”窗口，選擇其中的“啟用此內容”，“確定”退出(圖2)； 再切換到“視圖”選項卡，點擊“宏”→“錄制宏”，出現(xiàn)“錄制新宏”窗口，在“宏名”定義一個名稱為：PasswordBreaker(圖3)，點擊“確定”退出； 第二步：再點擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”并點擊“編輯”，打開“MicrosoftVisualBasi
2、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 第三步：再點擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”并點擊“執(zhí)行”，密碼就現(xiàn)形了(圖4)。 第四步：切換“審閱”選項卡，點擊“撤消工作表保護”，然后輸入密碼即可解除鎖定。
