VBA撤销工作表保护密码：原理、方法与注意事项

一、背景介绍

在日常工作中，经常需要处理他人设置密码保护的Excel工作表。如果忘记密码，常规操作将无法修改或查看隐藏内容。利用VBA（Visual Basic for Applications）可以绕过或撤销工作表保护密码，提高工作效率。

二、VBA撤销工作表保护的方法

方法1：使用已知密码直接撤销

如果知道密码，只需一行代码：

ActiveSheet.Unprotect Password:="yourpassword"

但多数情况密码未知，此时可采用以下方法。

方法2：利用VBA密码字典暴力破解（简单密码）

编写循环尝试常见密码组合，例如数字、常用单词等。注意：速度较慢且可能触发Excel安全限制。

Sub UnprotectSheet()
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    Dim s As String
    For i = 97 To 122 'a-z
        For j = 97 To 122
            For k = 0 To 9
                For l = 0 To 9
                    s = Chr(i) & Chr(j) & k & l
                    On Error Resume Next
                    ActiveSheet.Unprotect Password:=s
                    If ActiveSheet.ProtectContents = False Then
                        MsgBox "密码为: " & s
                        Exit Sub
                    End If
                Next
            Next
        Next
    Next
End Sub

方法3：利用VBA漏洞（适用于Excel 2003及更早版本）

Excel 2003及之前的版本存在安全漏洞，可通过特定代码强制移除保护：

Sub RemoveProtection()
    Dim i As Long, j As Long
    On Error Resume Next
    For i = 0 To 3
        For j = 0 To 2
            ActiveSheet.Unprotect
        Next
    Next
    If ActiveSheet.ProtectContents Then
        MsgBox "无法去除保护"
    Else
        MsgBox "保护已移除"
    End If
End Sub

注意：新版Excel（2007+）已修复此漏洞，该方法失效。

方法4：使用已知的通用密码（某些情况）

部分Excel版本存在默认备份密码，如“VelvetSweatshop”（Excel 97-2003）或“thor”（某些中文版）。尝试：

ActiveSheet.Unprotect Password:="VelvetSweatshop"

三、高级方法：使用VBA修改Sheet内部属性

通过读取二进制流或XML内容，直接修改工作表保护标志。以下为修改xlsx文件的示例（需先解压）：

'需引用Microsoft XML, v6.0
Sub RemoveProtectionXML()
    Dim fso As Object
    Dim zipFile As String
    Dim tempDir As String
    '代码略……
End Sub

此方法较复杂，适合专业人员。

四、注意事项

• 以上方法仅用于合法用途，如找回自己的密码。
• 暴力破解耗时且不可靠，建议使用密码恢复工具。
• Excel 2010以上版本安全性增强，部分方法失效。
• 备份原文件，防止数据丢失。

五、总结

VBA撤销工作表保护密码是应急时的有效手段。选择合适方法（密码字典、漏洞利用或XML修改）可解决问题。建议日常设置易记密码或保留备份。