You can target the cells directly to disallow copy, paste, drag & drop changes in validation cells. Below it the procedure to do that:
Code:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
End With
End Sub
Private Sub Workbook_Activate()
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
End With
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot cut, copy, paste, or ''drag & drop''.", 16, "For this file:"
End Sub
Bookmarks