【Excel技巧】用VBA代码解除工作表保护：详细步骤与安全指南

在处理受保护的Excel工作表时，若忘记密码或需要快速解除编辑限制，VBA代码是一种有效的解决方案。本文将以Excel 2016为例，详细演示如何通过VBA代码解除工作表保护，并提供安全操作的注意事项。

一、VBA解除工作表保护的适用场景

场景：解除「审阅→保护工作表」设置的编辑限制（如禁止修改单元格、隐藏行列等）。
不适用：破解Excel文件打开密码（需专业工具）、解除工作簿结构保护。
原理：通过VBA代码循环尝试简单密码组合，或强制复制内容到新工作表。

二、分步操作：VBA代码破解法

步骤1：启用VBA编辑器

打开受保护的Excel文件，确保文件已解锁（未被其他程序占用）。
调出VBA编辑器：

快捷键：按下 Alt + F11（推荐）。
菜单路径：若「开发工具」选项卡可见，点击「开发工具→Visual Basic」；若不可见，需手动启用：
文件→选项→自定义功能区→勾选「开发工具」→确定。

步骤2：插入密码破解代码

定位目标工作表：
在VBA编辑器左侧的「工程资源管理器」中，右键点击需要解除保护的工作表（如Sheet1），选择「查看代码」。

粘贴破解代码：
在右侧代码窗口中输入以下VBA代码（用于尝试简单密码组合）：

Sub 解除工作表保护()  
    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, i4 As Integer, i5 As Integer, i6 As Integer  
    On Error Resume Next  
    ' 循环尝试由字母和数字组成的1-12位密码  
    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: For n = 32 To 126  
        ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _  
            Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _  
            Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)  
        ' 检测保护是否解除  
        If ActiveSheet.ProtectContents = False Then  
            MsgBox "密码已破解：" & Chr(i) & Chr(j) & Chr(k) & _  
                Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _  
                Chr(i4) & Chr(i5) & Chr(i6) & Chr(n), vbInformation  
            Exit Sub  
        End If  
    Next: Next: Next: Next: Next: Next  
    Next: Next: Next: Next: Next: Next  
End Sub

代码逻辑：通过多层循环组合字母（A-Z）和可打印字符（32-126 ASCII码），逐个尝试密码。

步骤3：运行代码并查看结果

执行代码：
点击VBA编辑器工具栏中的「运行」按钮（绿色三角形），或按下 F5。

等待破解：

简单密码（如1-3位）：几秒到几分钟内弹出密码提示框。
复杂密码（如8位以上混合字符）：可能需要数小时甚至更长时间，建议中途停止并改用其他方法。

解除保护：
破解成功后，工作表会自动解除保护；若未成功，可尝试「进阶技巧」中的强制复制法。

三、进阶技巧：强制解除保护（无需密码）

若只需获取工作表内容，无需知道密码，可使用以下代码创建无保护的副本：

Sub 强制解除工作表保护()  
    Dim sh As Worksheet, newSh As Worksheet  
    For Each sh In ActiveWorkbook.Sheets  
        On Error Resume Next  
        ' 尝试用空密码或常见密码解除保护（如"password"）  
        sh.Unprotect ""  
        sh.Unprotect "password"  
        ' 若仍受保护，复制内容到新工作表  
        If sh.ProtectContents Then  
            Set newSh = ActiveWorkbook.Sheets.Add(After:=sh)  
            newSh.Name = sh.Name & "_无保护副本"  
            sh.Cells.Copy Destination:=newSh.Cells  
        End If  
    Next  
    MsgBox "已生成无保护的工作表副本！", vbInformation  
End Sub

操作效果：在工作簿中生成同名副本工作表，内容与原表一致但无保护限制。

四、安全注意事项

1. 宏启用与风险

启用宏：
文件→选项→信任中心→信任中心设置→宏设置→启用所有宏（不推荐）

建议：勾选「禁用所有宏，除了数字签署的宏」，并通过「开发工具→宏安全性」临时信任当前工作簿。

风险：宏可能包含恶意代码，仅在信任的文件中使用此功能。

2. 法律与权限

仅用于解除自己拥有权限的工作表保护，禁止未经授权破解他人文件，可能违反软件许可协议或法律法规。

3. 数据备份

操作前务必保存副本：文件→另存为，避免原文件因代码运行错误导致数据损坏。

4. 版本兼容性

支持Excel 2007及以上版本（.xls/.xlsx），Excel for Mac需确认VBA支持情况。

五、常见问题与解决方案

问题	原因	解决方法
代码运行无反应	密码长度超过12位或非字母数字组合	改用专业工具（如Passper for Excel）
提示「宏已被禁用」	宏安全设置限制	按前文步骤启用宏或信任当前文档
复制后格式丢失	原表包含条件格式或对象	使用`sh.Cells.SpecialCells(xlCellTypeAll).Copy`
无法创建新工作表	工作簿结构被保护	先解除工作簿保护（需密码）或另存为新文件