首页 / 新闻资讯 / Excel 2003取消密码保护详解：三种密码一键解除

Excel 2003取消密码保护详解：三种密码一键解除

发布时间：2026-07-09 作者：白飞 阅读量：33

Excel 2003 密码保护类型

Excel 2003 支持三种密码保护：

  • 打开密码：阻止未授权用户打开文件。
  • 工作表保护密码：限制对工作表内容的修改。
  • 工作簿保护密码：保护工作簿结构（如移动、删除工作表）。

以下分别说明取消方法。

方法一：取消打开密码

  1. 打开需要取消密码的Excel文件，输入正确的密码打开。
  2. 点击菜单栏 工具 -> 选项。
  3. 切换到 安全性 选项卡。
  4. 在 打开权限密码 框中，删除输入的密码（留空）。
  5. 点击 确定，保存文件（Ctrl+S），下次打开时不再需要密码。

注意：如果忘记打开密码，只能借助第三方密码恢复工具。

方法二：取消工作表保护密码

已知密码的情况

  1. 打开文件，切换到受保护的工作表。
  2. 点击菜单栏 工具 -> 保护 -> 撤销工作表保护。
  3. 输入密码（如果有），点击确定即可取消。

忘记密码的情况（通过VBA破解）

  1. 打开Excel文件。
  2. 按 Alt+F11 打开VBA编辑器。
  3. 点击菜单 插入 -> 模块。
  4. 将以下代码复制粘贴到模块中：
    Sub UnprotectSheet()
    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
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    Chr(i4) & Chr(i5) & Chr(i6)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "Password: " & Chr(i) & Chr(j) & _
        Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
        Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
        Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub
  5. 按 F5 运行宏。程序会尝试所有字母组合（A和B），找到密码后弹出对话框。密码一般为空或简单字符。
  6. 取消保护后，保存文件即可。

方法三：取消工作簿保护密码

已知密码的情况

  1. 打开文件。
  2. 点击菜单 工具 -> 保护 -> 撤销工作簿保护。
  3. 输入密码，点击确定。

忘记密码的情况

与工作表保护类似，使用VBA暴力破解，但需修改代码作用于工作簿：

  1. 按 Alt+F11 打开VBA编辑器。
  2. 插入模块，粘贴以下代码：
    Sub UnprotectWorkbook()
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n 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 n = 65 To 66
    ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
    Chr(l) & Chr(m) & Chr(n)
    If ActiveWorkbook.ProtectStructure = False Then
        MsgBox "Password: " & Chr(i) & Chr(j) & _
        Chr(k) & Chr(l) & Chr(m) & Chr(n)
        Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
End Sub
  3. 运行宏，等待成功。

注意事项

  • 以上破解方法仅适用于已知密码被遗忘的情况，请勿用于非法用途。
  • 如果文件是.xls格式，Excel 2003直接操作即可；若为更高版本，请另存为2003格式再操作。
  • 若所有方法无效，可尝试第三方工具如“PassFab for Excel”或“Excel Password Recovery Lastic”。

通过以上步骤，您应能有效取消Excel 2003中的各种密码保护。

相关文章