如何防止受保护Excel工作表内容被复制，VBA列保护代码失效怎么办

原代码失效核心原因 #

• Locked属性仅控制单元格是否可编辑，Excel默认工作表保护规则不会主动限制锁定单元格的复制操作
• 缺少限制锁定单元格选中/操作的相关配置，用户依然可以选中保护区域后直接复制内容

解决方案 #

方案1：禁止选中锁定区域（最简单稳定） #

直接限制用户仅能选中未锁定的单元格，从根源避免复制操作，修改后的代码如下：

Sub ARCProtectPwdRFQ()
    ActiveSheet.Unprotect Password:="arc"
    Cells.Locked = False
    ' 标记需要保护的区域为锁定状态
    ActiveSheet.Range("A1", "D100").Locked = True
    Columns("I:I").EntireColumn.Locked = True
    ' 新增EnableSelection参数，仅允许选择未锁定单元格
    ActiveSheet.Protect _
        Password:="arc", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        EnableSelection:=xlUnlockedCells, _
        UserInterFaceOnly:=True
End Sub

方案2：允许查看但禁止复制 #

如果业务需要允许用户查看保护区域内容，仅限制复制操作，可额外新增工作表事件监听：

1. 打开VBA编辑器（快捷键Alt+F11），在左侧工程列表双击你要保护的工作表对象
2. 在代码窗口顶部左侧下拉框选择Worksheet，右侧下拉框选择SelectionChange，粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Locked = True Then
        ' 选中锁定区域时直接清空剪贴板
        Application.CutCopyMode = False
        MsgBox "当前区域内容禁止复制", vbInformation
    End If
End Sub

注意事项 #

• 所有VBA逻辑都需要用户打开文件时启用宏才会生效，若用户禁用宏保护规则会失效
• 若需要更高等级的内容保护，可搭配Excel文件级加密、另存为PDF/只读格式等方式降低泄露风险

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