Tom is right....you should cover all your bases as the user can still have the Cut
or copy button in another commandbar.
As well as toms you can try this,
Don't forget that the user can still
Cut to another Workbook.
In the Thisworkbook object;
<pre/>
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CutCopyMode = False
End Sub
</pre>
And Also
<pre/>
Sub DisableCopy()
EnableControl 19, False ' copy
EnableControl 21, False ' cut
Application.CommandBars("Toolbar List").Enabled = False
Application.OnKey "^C", ""
End Sub
Sub EnableCopy()
EnableControl 19, True ' copy
EnableControl 21, True ' cut
Application.CommandBars("Toolbar List").Enabled = True
Application.OnKey "^C"
End Sub
Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(Id:=Id, recursive:=True)
If Not Ctrl Is Nothing Then Ctrl.Enabled = Enabled
Next
End Sub
</pre>