There are more problems with your code
To disable Cut for example in all toolbars use
Private Sub Worksheet_Activate()
' Excel 2000 - 2003
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Worksheet_Deactivate()
' Excel 2000 - 2003
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Asif" <(E-Mail Removed)> wrote in message news:B3A3F396-D3E9-4BC1-BAB6-(E-Mail Removed)...
>I have a similar routine re-enabling everything in the Worksheet_Deactivate
> event. Still doesn't work.
>
> --
> Thanx & regards,
> Asif
>
>
> "Ron de Bruin" wrote:
>
>> Hi Asif
>>
>> You must reset it in the Worksheet_Deactivate event
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "Asif" <(E-Mail Removed)> wrote in message news:75EB95F2-E7FA-4120-BAC2-(E-Mail Removed)...
>> >I have used following code to disable cut in a worksheet. But remains
>> > disabled permanently for the workbook and even for other workbooks. I'd have
>> > to re-start Excel to get it enabled. Is there a workaround... please help.
>> >
>> > Private Sub Worksheet_Activate()
>> > Dim eCtrl As CommandBarControl
>> > On Error Resume Next
>> > For Each eCtrl In Application.CommandBars
>> > eCtrl.FindControls(ID:=21).Enabled = 0 'Disable Ctrl-x
>> > eCtrl.FindControls(ID:=1964).Enabled = 0 'Disable Clear - All
>> > eCtrl.FindControls(ID:=872).Enabled = 0 'Disable Clear - Formats
>> > Next eCtrl
>> > With Application
>> > If .CutCopyMode = xlCut Then .CutCopyMode = False 'Clear clipboard
>> > .OnKey "^x", ""
>> > .CellDragAndDrop = False
>> > .CopyObjectsWithCells = False
>> > End With
>> > End Sub
>> >
>> > --
>> > Thanx & regards,
>> > Asif
>>