Prevent cut and paste over a range
 

This code from Elkar when placed in VBE ThisWorkbook seems to do a nice job
preventing a user from cutting/pasting in a workbook. Is there a way I can
modify it for use only on a certain range within one sheet? How about two
non-continguous ranges on the same sheet? TIA

Here is the code from another post (credits to Elkar):

Private Sub Workbook_Activate()
Application.CutCopyMode = None
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Application.CutCopyMode = None
End Sub