excel 2007 VBA disable CUT button

[Ñô¹â]

How to disabled excel2007 CUT button?
--------------------------------
Private Sub Workbook_Open()
Application.OnKey "^x", ""
Application.OnKey "+{delete}", ""
Application.CommandBars("cell").Controls(1).Enabled = False
'Application.CellDragAndDrop = False
'How to disabled excel2007 CUT button?
End Sub

 

[Ron de Bruin]

Try

If you use Excel 2000-2003 you can use the code below that use the Office.CommandBarControl

Sub MenuControl_False()
' Excel 2000 - 2003
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
End Sub

If you use Excel 97 then use this example (also working in 2000-2003)

Sub MenuControl_Enabled_False()
' Excel 97 - 2003
Dim Ctl As CommandBarControl
Dim Cbar As Integer

On Error Resume Next
For Cbar = 1 To Application.CommandBars.Count
For Each Ctl In Application.CommandBars(Cbar).Controls
Application.CommandBars(Cbar).FindControl(ID:=21, _
Recursive:=True).Enabled = False
Next Ctl
Next Cbar
On Error GoTo 0
End Sub

 

[Ron de Bruin]

Oops you say 2007

Download the workbooks (point 2)
http://www.rondebruin.nl/ribbon.htm

See this file
XL-Disable-Visible-Repurposing

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm