Command buttons
 

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

Command buttons
 

This worked ok for me:

Application.CommandBars("standard").Controls("form at painter").Enabled = True

Russell Stevenson wrote:

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

--

Dave Peterson

Command buttons
 

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



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Command buttons
 

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).



Russell Stevenson wrote:

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

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson