Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Preventing data validation from being destroyed
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VT As Long
    On Error Resume Next
    VT = Range("A1").Validation.Type
    If Err.Number <> 0 Then
        Application.Undo
        MsgBox "canceled."
    End If
End Sub