萬盛學電腦網

您现在的位置: 萬盛學電腦網 >> 辦公室軟體 >  >> Excel 教學 >> Excel 綜合

Excel 2013 忘記工作表保護密碼?用 VBA 巨集一鍵破解

若遺忘工作表保護密碼,可用 VBA 巨集移除保護(僅供合法授權檔案使用):

  1. 開啟受保護的活頁簿,彈出密碼提示時點選「取消」或關閉視窗。
  2. 按 Alt+F11 開啟 VBA 編輯器(或 Ctrl+F11 視版本而定)。
  3. 「插入」→「模組」,貼上以下程式碼:
Sub PasswordBreaker()
    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 "密碼已破解: " & 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
  1. 按 F5 執行巨集,稍等片刻即彈出密碼並移除保護。

步驟 1:開啟受保護檔案

步驟 2:開啟 VBA 編輯器

步驟 3:插入模組貼上代碼

步驟 4:執行巨集破解成功

原理:暴力嘗試簡單密碼組合;複雜密碼可能需較久時間。Excel 2013 以降版本工作表保護加密較弱,此法通常有效;活頁簿層級保護(檔案開啟密碼)則無法用此法破解。

copyright © 萬盛學電腦網 all rights reserved