Hi

With code you can use this event in the Thisworkbook module

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

You must also disable drag and drop

Here is some selection change code that you need to put into the specified
sheet...
(Right click the sheet tab and select Veiw Code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
with Application    
If .CutCopyMode = xlCopy Then .CutCopyMode = False
If .CutCopyMode = xlCut Then .CutCopyMode = False 'Prevents Cut
end with
End Sub

Owesome....Thanks to Ron and Jim