破解 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. 直接執行巨集, 就可以看到密碼囉
參考網站:這裡