利用 VBA 巨集程式破解:

1:打開該文件,切換到“檢視”選項,點擊“巨集”→“錄製巨集”,出現“錄製巨集”窗口,在“巨集名稱”隨意輸入一名稱(假設:ABC),點擊“確定”退出;

2:再點擊“巨集”→“檢視巨集”,選擇“巨集名稱”下的“ABC”並點擊右邊的“編輯”,會自動打開“Microsoft Visual Basic”編輯器,用以下的內容完全替換右側窗口中的所有編碼:

Sub  ABC( )

   Dim i As Integer, j As Integer, k As Integer
   Dim l As Integer, m As Integer, n As Integer
   Dim i1 As Integer, i2 As Integer, i3 As Integer
   Dim i4 As Integer, i5 As Integer, i6 As Integer

   On Error Resume Next

   For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
      For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
         For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
            For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
               ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
               Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
               Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

               If ActiveSheet.ProtectContents = False Then
                  MsgBox "One usable password is " & 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) & _
                  Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                  Exit Sub
               End If

   Next: Next: Next: Next: Next: Next
   Next: Next: Next: Next: Next: Next

End Sub

3:再點擊“巨集”→“檢視巨集”,選擇“巨集名稱”下的“ABC”並點擊“執行”,密碼就現形了。

4:切換“校閱”選項,點擊“保護工作表”,然後輸入密碼即可解除鎖定。

資料來源:http://www.ccbear.com/2009/12/excel-2007.html

-----------------------------------------------------------------------------------------------------------
上述方法僅適用工作表被密碼保護的檔案,若是檔案被密碼鎖住,則必須利用破解工具,搜尋網路會發現許多破解工具,其中試過 Password Recovery 還不錯!可供參考:


檔案:Password Recovery Bundle 2012 v1.90 Full.rar
載點:http://36ea6421.yyv.co (點擊連結後等待右上角的倒數結束,後按 Skip Ad 就可以下載了!)

該軟體很耗CPU資源,所以建議用一台沒在使用的電腦跑。 

下載完解壓縮後,裡面會有一個 Keygen.exe 檔與 setup.exe 檔,先執行安裝程式 setup.exe,安裝完成時會問是否開啟程式,取消勾選,然後按完成。

接著執行 Keygen.exe,按右下角的 Patch 檔,然後去找該程式的目錄,在 C:\Program Files\Intelore\Excel Password Recovery,然後點選 ExcelPasswordRecovery.exe 檔執行破解。
接著執行 Excel Password Recovery 該程式,將剛剛 Keygen 所產生的破解序號貼進序號欄位,名稱隨便填,按送出,就可以完成破解程序了。

創作者介紹
創作者 桑摩 的頭像
桑摩

HHT' .com ||

桑摩 發表在 痞客邦 留言(0) 人氣()