为了确保数据准确性,在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行代码给出提示。
效果如下图所示。