破解 excel 密碼保護分頁

要使用這個方法，必須有一些巨集的概念才行 至少也要懂得怎麼新增、執行巨集

Step1. 開啟 excel，開始編輯巨集

Step 2. 編寫巨集程式

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com
  
  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

 

Step 3. 直接執行巨集, 就可以看到密碼囉

 

參考網站：這裡