如何取消Excel文档密码

在日常工作中，我们经常需要对Excel文档设置密码以保护敏感数据，但有时也需移除密码以便编辑或共享。本文为您介绍几种取消Excel密码的方法，适用于不同情况。

方法一：使用已知密码取消

如果您还记得原始密码，取消密码非常简单：

1. 打开受保护的Excel文件。
2. 点击“文件”>“信息”>“保护工作簿”>“用密码进行加密”。
3. 在弹出的对话框中删除密码（即留空），点击“确定”。
4. 保存文件。密码即被移除。

方法二：使用VBA代码破解（仅限.xls或.xla文件）

如果您忘记了密码，可以尝试使用VBA宏代码。注意：此方法对较新版本（.xlsx）无效，且需要启用宏。

1. 打开Excel，按 Alt+F11 进入VBA编辑器。
2. 在菜单栏选择“插入”>“模块”。
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 n = 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(n) & Chr(i1) & Chr(i2) & _
   Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
   If ActiveSheet.ProtectContents = False Then
   MsgBox "密码是 " & Chr(i) & Chr(j) & _
   Chr(k) & Chr(l) & Chr(m) & Chr(n) & _
   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

4. 按F5运行宏，等待片刻即可破译密码。

方法三：使用第三方工具

市场上有许多专门用于移除Excel密码的工具，例如PassFab for Excel、iSunshare Excel Password Remover等。这些工具通常支持所有Excel版本，且操作简单。但需注意安全性和正版授权。

1. 下载并安装可信软件。
2. 导入Excel文件。
3. 选择移除密码或破解密码。
4. 保存新文件。

方法四：在线服务

某些网站提供在线密码移除服务，但出于安全考虑，不推荐上传包含敏感信息的文件，以免数据泄露。

注意事项

• 在尝试破解前，请确保您有权访问该文件。未经授权移除密码可能违法。
• 始终备份原始文件，以防操作失败导致数据损坏。
• 如果文件是工作簿级别的密码（打开密码），则需要使用更专业的方法。

通过以上方法，您可以根据实际情况选择最适合的方式取消Excel密码。如果问题依然存在，建议咨询专业IT人员。