Disable certain control in a menu bar

tausif82 · Aug 11th 2006

Hi Guys,

I have a Add in that creates a custom menubar .. I need to disable only a certian control in my custom menubar.

I used the following line

Code

' The Tag refers to a Commandbar control that opens a new report.
Application.CommandBars.FindControl(Tag:="GRNew Report").Enabled = False

This however is not disabling my New report commandbar button ...
I have also tried the following approach ..

Code

Dim temp as variant
Set temp = CommandBars.FindControl(Type:=msoControlPopup, Tag:="GRNew Report")
temp.enabled = false

The findcontrol method works fine & returns proper control .. but the Enabled property is not working !!! Please help , this is driving me crazy !!

xlite · Aug 11th 2006

Re: Disable acertain control in a menu bar

can you show us the code that made this GRNew Report copmmandbar in the first place?

ilyaskazi · Aug 11th 2006

Re: Disable acertain control in a menu bar

Maybe you require this...

Code

Application.CommandBars("GRNew Report").Enabled = False

HTH
ilyaskazi

Nope, this work only if your cmdbar name is as above and not tag. sorry.
ilyaskazi.

tausif82 · Aug 11th 2006

Re: Disable acertain control in a menu bar

Here's the code that created the custom menubar.

Code

Dim MenuObject As CommandBarPopup, MenuItem As CommandBarControl


' TOP LEVEL MENU (HEADING)
Set MenuObject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=10, Temporary:=True)
With MenuObject
    .Caption = "&Global Reporting"    
    '.OnAction = "GRPModule.CheckWBPresent"
End With
'END OF TOP LEVEL MENU


'********* New menu item code
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
With MenuItem
    .Caption = "&New Report..."
    .OnAction = "Main.NewReport"
    .FaceId = 1015
    .ShortcutText = "Ctrl+Shft+N"
    '.Visible = True
    .Tag = "GRNew Report" 'Used to identify this Control
End With


Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
With MenuItem
    .Caption = "&Requery And Calculate"
    .OnAction = "Main.RequeryAndCalculate"
    .ShortcutText = "Ctrl+Shft+R"
    .BeginGroup = True
    .FaceId = 346
    .Tag = "GRRequery And Calculate"
End With

Display More

Also i just noticed that , the

Code

Application.CommandBars.FindControl(Tag:="GRNew Report").Enabled = False

is not working ONLY for new report control ... It's working fine for "Requery & Calculate " when I change the tag property to GRRequery And Calculate .... This is all the more frustrating !

xlite · Aug 12th 2006

Re: Disable acertain control in a menu bar

try this one:

Code

Sub disableNReport()
Application.CommandBars(1).Controls("&Global Reporting") _
.Controls("&New Report...").Enabled = False
End Sub

Dave Hawley · Aug 13th 2006

Re: Disable acertain control in a menu bar

You should use the ControlID for these. See the page below for an example

Disable Cut/Copy In Excel Workbook

tausif82 · Aug 15th 2006

Re: Disable certain control in a menu bar

All ..

Thank you very much ... Currently, I am using the method as referrred by xlite which works as an alternative ... I will try disbaling with the using the ID property & chekc if it works ... Many thanks again for all your help.

Rgds
Tausif

Disable certain control in a menu bar

Participate now!

Share