Command buttons

  • Thread starter Thread starter Russell Stevenson
  • Start date Start date
R

Russell Stevenson

How do I apply code to disable command buttons. ie. If I want to
disable the 'Format Painter' button then what do I do??

Thanks in anticipation.

Rus Stevens
 
This worked ok for me:

Application.CommandBars("standard").Controls("format painter").Enabled = True
 
Dave,

Thanks for that. It worked a treat. I was almost there. Same storey
though, a minor error in the syntax.

One other problem I have is that I wish to disable the 'Insert Comment'
function on the drop down menu. Again, can you offer any advice.

Thanks
Rus
 
One way:

Option Explicit
Sub testme()
On Error Resume Next
With Application.CommandBars("worksheet menu bar").Controls("Insert")
.Controls("comment").Enabled = False
.Controls("edit comment").Enabled = False
End With
On Error GoTo 0
End Sub

If the activecell already has a comment, then you see "edit comment". I just
turned both off (ignoring any error).
 
Back
Top