The MenuBar

[Vegard Villmones]

Hi

I have this program (msaccess04) where I want to disable the menubar
when the license key is not correct. I.e I want to gray out all the
items in the menu, it would look better than not showing the menu at
all, which is what I do now.

So I'm looking for some kind of property like me.menubar.grayout =
true ? :)

Vegard

[John Winterbottom]

"Vegard Villmones" <vv******@c2i.net> wrote in message
news:b5**************************@posting.google.c om...

Hi

I have this program (msaccess04) where I want to disable the menubar
when the license key is not correct. I.e I want to gray out all the
items in the menu, it would look better than not showing the menu at
all, which is what I do now.

So I'm looking for some kind of property like me.menubar.grayout =
true ? :)

I think you need to disable the individual menu items.

Sub disableMenu(strMenu As String)

Dim cbr As Object
Dim ctl As Object

Set cbr = Application.CommandBars(strMenu)
For Each ctl In cbr.Controls
ctl.Enabled = False
Next ctl
Set ctl = Nothing
Set cbr = Nothing
End Sub