I'm using Excel 2003. Before the "Cut" in Edit menu was getting disabled. Now
it remains enabled. The cut button on Standard bar remains disabled though.
--
Thanx & regards,
Asif
"Ron de Bruin" wrote:
If you copy the two events I posted in a worksheet module you see that it will work only for that worksheet
Is it working for you?????????
From which Toolbar do you want to disable the items
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Asif" wrote in message ...
Hi Ron,
I do not want to disable ctrl-x for all office. I just want to do so in one
particular worksheet. Also, any idea why i can't disable clear in the code
below.
--
Thanx & regards,
Asif
"Ron de Bruin" wrote:
Oops, the last one(Deactivate) must be True instead of false
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Ron de Bruin" wrote in message ...
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" wrote in message ...
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" wrote in message ...
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