Excel剪切和粘贴的VBA代码

用户可以在该单元格中输入数据：

通过从预定义的选项列表中选择（滚动下拉列表）

通过直接输入字母数字值（所有数字、所有字母或两者的组合）

通过复制（来自其他文档）并将标识符粘贴到该单元格中

我不想给用户执行选项3的权利？是否有VBA代码来实现这一点

Excel在验证方面一直存在问题。当您需要有人从列表中选择或输入特定数据时，它们可以正常工作，但当用户从其他人复制数据并粘贴到验证单元格中时，它会忽略验证并允许验证。以下是一个示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target = Range("A1") Then
        If Not (Target >= 1 And Target <= 10) Then
            Application.Undo
            MsgBox "Please enter value between 1 to 10", vbOKOnly + vbCritical
        End If
    End If
    Application.EnableEvents = True
End Sub

Private子工作表\u更改（ByVal目标作为范围）
Application.EnableEvents=False
如果目标=范围（“A1”），则
如果不是（Target>=1和Target），请参阅
工作表\u change
事件。您可以在那里测试该值，如果该值无效，则可以撤消该项。