Excel文档怎么取消加密?三种方法轻松移除密码保护
Excel文档加密的类型
在取消加密前,需区分Excel加密类型:
- 工作簿打开密码:需要密码才能打开文件。
- 保护工作簿结构:限制对工作簿结构的修改(如移动、删除工作表)。
- 保护工作表:限制对特定工作表的编辑。
方法一:已知密码时取消保护
取消工作表保护
- 打开Excel文档,点击被保护的工作表标签。
- 点击“审阅”选项卡 > “撤销工作表保护”。
- 输入密码,点击“确定”。
取消工作簿保护
- 点击“审阅”选项卡 > “保护工作簿”。
- 在弹出的对话框中取消“保护工作簿”复选框,输入密码确认。
方法二:忘记密码时尝试VBA代码
此方法适用于Excel 2013及以下版本(因为新版本加密更强)。
- 按 Alt + F11 打开VBA编辑器。
- 点击菜单“插入” > “模块”。
- 粘贴以下代码:
Sub RemoveProtection()
Dim i As Long, j As Long, k As Long, l As Long, m As Long, n As Long
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long
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 a = 65 To 66: For b = 65 To 66
For c = 65 To 66: For d = 65 To 66: For e = 65 To 66: For f = 65 To 66
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) &
Chr(m) & Chr(n) & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f)
If ActiveSheet.ProtectContents = False Then
MsgBox "密码是: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) &
Chr(m) & Chr(n) & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f)
Exit Sub
End If
Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next
End Sub - 按 F5 运行代码。如果密码简单,可能很快破解。
- 若代码运行后工作表保护依然存在,说明密码复杂,需使用专业工具。
方法三:使用第三方工具
推荐工具:PassFab for Excel、iSeePassword Excel Password Recovery等。步骤类似:
- 下载安装软件,选择“移除Excel密码”功能。
- 导入加密的Excel文件。
- 选择攻击方式(如暴力破解、字典攻击等),设置参数后开始移除。
- 等待几秒至几分钟,密码被清除后保存为新文件。
注意事项
- 破解他人Excel文档前,请确认你有合法权限。
- 工作簿打开密码较难破解,建议使用专业工具或联系数据库管理员。
- VBA代码仅适用于弱密码,且可能触发杀毒软件误报。