How do I "grey" the cut and copy icon in the standard toolba

[gandalf]

I know how to "grey" the save button in the standard toolbar:
Private Sub Workbook_Open
Application.CommandBars("Standard").FindControl(Id:=3).Enabled = False
End Sub

What are the Id-numbers for the cut & copy buttons?

Thanks in advance.

 

[Andrew Poulsom]

This may help you:

http://216.92.17.166/board/viewtopic.php?topic=25013&forum=2

 

[dk]

Additionally, the ID of Cut is 21 and Copy is 19. I used this code to find these:-

Sub ListControls()
Dim r As Long
r = 1

For Each ctl In Application.CommandBars.FindControl(ID:=30003).Controls 'Edit menu
    Cells(r, 1) = ctl.Caption
    Cells(r, 2) = ctl.ID
    r = r + 1
Next ctl
    
End Sub

 

[gandalf]

Thanks both for the VERY QUICK reply.

Andrew, I already used this code with a bunch of other codes. It desables the paste button but the buttons for cut and copy are still "showing".

dk, YOU the man or the woman for all I know. :wink:

Thanks again