Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A:B,E:E"), Target) Is Nothing Then
If Application.CutCopyMode <> False Then Cancel = True
End If
End Sub
Sub Worksheet_Change(ByVal Target As Range)
If Flag Or Intersect(Target, Range("A:B,E:E")) Is Nothing Or Application.CutCopyMode = False Then
Exit Sub
End If
Flag = True
Application.Undo
Flag = False
End Sub