[紧急求助]某些情况下会提示'Undo'作用于对象'_Application"时失败？

滴血de草莓

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target
If Not Cell.Validation.Value Then
Application.Undo
MsgBox prompt:="您粘贴的数据不符合该单元格填写要求,请点击下拉箭头选择填写！", Title:="温馨提示"
Exit For
End If
Next
If Application.CutCopyMode Then
Application.EnableEvents = False
vData = Target.Value
Application.Undo
Target = vData
Application.EnableEvents = True
End If
End Sub
这段代码包含了两个功能。功能一，禁止粘贴，保护数据有效性单元格不被粘贴内容破坏；功能二，粘贴数值，将粘贴内容默认为只粘贴数值，保护目标单元格格式。
实际使用中遇到的问题：如果粘贴目标区域单元格正好包含了数据有效性单元格和设置了格式的单元格，这种情况下就会提示错误（详见截图）。如果只粘贴在设有数据有效性的单元格或只粘贴在设置了字号、字体等格式的单元格，这种操作没有任何问题，使用一切正常。望各位老师指点学生，十分感谢！！！