Try pasting any or all this (depending on your level of desired control) into your workbook module. You don't need every Sub here, so pick and choose what works best for you.
Keep in mind 2 points:
(1) This will disable your Undo capabilities.
(2) There is no such thing as an uncircumventable security measure. In other words, this code is not the be all end all...it will only stop your friends.
''''''''''''''''''''''''''''''''''''''''
Private Sub Workbook_Activate()
With Application
.CutCopyMode = False
.CellDragAndDrop = False
End With
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot copy or ''drag & drop''.", 16, "For this file:"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application
.CellDragAndDrop = False
.OnKey "^c", ""
.CutCopyMode = False
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.CellDragAndDrop = True
.OnKey "^c"
.CutCopyMode = False
End With
End Sub
'''''''''''''''''''''''''''''''''''''''''
_________________
Tom Urtis
This message was edited by Tom Urtis on 2002-03-20 05:16