首页 / 新闻资讯 / 忘记Excel加密密码？三步教你轻松找回

忘记Excel加密密码？三步教你轻松找回

发布时间：2026-07-06 作者：郝芳 阅读量：32

忘记Excel加密密码怎么办？

在日常工作中，为了数据安全，我们常给Excel文件设置密码。但万一忘记密码，就会面临无法编辑或查看的困境。其实，你还有机会恢复密码。以下是三种常用方法：

方法一：使用专业密码恢复工具

如果文件是Excel 2010及以后版本（加密算法较强），推荐使用第三方工具如 PassFab for Excel 或 iSunshare Excel Password Genius。操作步骤：

  1. 下载安装工具。
  2. 选择“恢复Excel打开密码”或“移除工作表密码”。
  3. 根据提示选择攻击方式（暴力破解、字典攻击等），设置密码长度和字符集。
  4. 开始恢复，等待工具尝试。

注意： 较长的复杂密码可能需要数小时甚至数天，请耐心等待。路径：文件 > 选项 > 信任中心 确保宏已启用。

方法二：使用VBA脚本破解工作表保护密码

如果只是工作表保护密码（而非整个文件打开密码），可以通过VBA脚本快速移除：

  1. 按住 Alt + F11 打开VBA编辑器。
  2. 在左侧工程资源管理器中，双击被保护的工作表。
  3. 在代码窗口中粘贴以下脚本：
    Sub RemoveProtection()
    Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer
    Dim n As Integer, o As Integer, p As Integer, q As Integer, r As Integer
    Dim s As Integer, t As Integer, u As Integer, v As Integer, w As Integer
    Dim x As Integer, y As Integer, z 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: For o = 65 To 66: For p = 65 To 66
    For q = 65 To 66: For r = 65 To 66: For s = 65 To 66: For t = 65 To 66
    For u = 65 To 66: For v = 65 To 66: For w = 65 To 66: For x = 65 To 66
    For y = 65 To 66: For z = 65 To 66
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) & Chr(u) & Chr(v) & Chr(w) & Chr(x) & Chr(y) & Chr(z)
    If ActiveSheet.ProtectContents = False Then
    MsgBox "密码是: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) & Chr(u) & Chr(v) & Chr(w) & Chr(x) & Chr(y) & Chr(z)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next
    Next: Next: Next: Next
    Next: Next: Next: Next
    End Sub
  4. 按 F5 运行宏，脚本会尝试所有可能的两字符密码组合（实际上只测试了字母A和B的组合，仅适用简单密码）。

提示： 上述脚本只测试65和66（ASCII码对应A和B），实际密码更复杂时请网上搜索完整“Excel暴力破解密码VBA”脚本。

方法三：取消工作表保护（适用于.xls旧格式）

如果是旧版Excel（如2003）的工作表保护，可以通过以下步骤：

  1. 打开文件，按 Alt + F11 进入VBA。
  2. 在“属性”窗口中找到 ScrollArea 属性，清空其值（如果存在）。
  3. 或者运行 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 再 ActiveSheet.Unprotect。

但该法成功率低，建议优先使用方法一。

最后提醒： 任何密码恢复行为请确保是您自己的文件，尊重他人隐私。如果密码极为复杂且无法破解，可以考虑备份文件后重新创建。

相关文章