设置数据有效性后如何防止粘贴

1、数据有效性设置可以有效地防止他人输入非法数值，但是当用户从他处复制数据再粘贴到数据有效性的单元格中，系统就不会进行数据有效性的判断。但可以利用VBA相结合的方式来进行。

2、首先，对需要进行数据输入的单元格取消锁定，然后再进行工作表保护。这样可以防止用户进行数据粘贴时删除原有的数据有效性设置。

3、然后对该表添加以下代码：　　Private Sub Worksheet_Change(ByVal Target As Range)For Each c In Target

4、If Not c.Validation.Value ThenApplication.UndoExit ForEnd IfNextEnd Sub　

5、当数据发生变化时即进行判断，判断每个单元格Validation.Value 情况，即数据有效性的验证情况。如果不符合数据有效性设定，就取消刚才的操作，即数据粘贴。