如何实现Excel工作表被取消保护时自动清除所有数据

注意：该功能依赖VBA宏实现，仅在用户打开文件时启用宏的场景下生效。请务必提前备份原始数据，避免测试时误删内容。

操作步骤 #

• 打开目标Excel文件，按下Alt + F11调出VBA编辑器
• 在左侧「项目-VBAProject」面板中找到你设置了保护的目标工作表，双击该工作表对象打开专属代码编辑窗口
• 将以下VBA代码粘贴到编辑窗口中，替换代码内的占位符为你自己设置的工作表保护密码

' 触发场景：在Excel内手动执行取消保护操作时触发
Private Sub Worksheet_Unprotect(ByVal Password As String)
    ' 校验密码是否为你设定的正确密码，密码不匹配则触发删除
    If Password <> "这里替换成你自己设置的工作表保护密码" Then
        ' 清除所有单元格内容，可根据需要替换为Cells.Clear同时清除格式
        Cells.ClearContents
        ' 可选：清空后直接关闭文件不保存，避免数据被恢复
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

' 触发场景：打开文件时工作表已处于未保护状态（对应破解工具直接修改文件结构绕过保护的场景）
Private Sub Worksheet_Activate()
    ' 判断工作表是否未被保护
    If Me.ProtectContents = False Then
        Cells.ClearContents
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

• 关闭VBA编辑器，将文件保存为启用宏的工作簿格式（后缀为.xlsm，旧版Excel可保存为.xls格式）
• （可选）给VBA工程加锁避免代码被篡改：在VBA编辑器顶部点击「工具」→「VBAProject属性」→切换到「保护」选项卡，勾选「查看时锁定工程」并设置独立密码即可。

内容的提问来源于stack exchange，提问作者JaJa