如何在数据验证单元格区域禁用粘贴

为了确保数据准确性，在A列设置了数据验证，可以输入值的列表如下图所示。

但是如果用户使用复制-粘贴，仍然可以输入其他值，如下图所示。

使用如下事件可以实现禁止粘贴。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If CommandBars.FindControl(, 128).List(1) = Left(CommandBars.FindControl(, 22).Caption, 2) Then
        Application.Undo
        MsgBox "请勿使用粘贴!", vbExclamation
    End If
    Application.EnableEvents = True
End Sub

【代码解析】
第2行代码忽略运行时错误。
第3行代码禁用系统事件。
第4行代码是整个过程代码的核心，利用“撤销”功能实现阻止粘贴。
CommandBars.FindControl(, 128)用于定位Excel工具栏中的“撤销”。
CommandBars.FindControl(, 22)用于定位Excel工具栏中的“粘贴”。
注意：关于ID值（128和22）在不同Excel版本中可能会有差异，上述代码在Excel 365中测试通过。
如果“撤销”清单中的最后一个操作时“粘贴”，那么第6行代码执行撤销操作，第7行代码给出提示。

效果如下图所示。