Customized Toolbars

[croydon]

I have created a toolbar using the Customize function. This is a toolbar with five options. Each of these options is a group that has a number of further options (i.e. opens various forms and reports).

Depending on the user access level, I would like to disable some options from within VBA.

I can't see how it is possible to read through the toolbar collections to identify the menu options and disable them.

Any suggestions would be appreciated. Thanks.

[RuralGuy]

Here's the method I use:

'-- Disable printer functions.  Any form needing the printer will enable it.
Dim MyMenu As Object
Set MyMenu = CommandBars("MyMenuName").Controls("File")
'-- Page SetUp
MyMenu.Controls(1).Enabled = False
'PrintSetUp = MyMenu.Controls(1).Visible             '-- Save existing state
'MyMenu.Controls(1).Visible = False
'-- Print Preview
MyMenu.Controls(2).Enabled = False
'PrintPreview = MyMenu.Controls(2).Visible           '-- Save existing state
'MyMenu.Controls(2).Visible = False
'-- Print...
'Printable = MyMenu.Controls(3).Enabled              '-- Save existing state
MyMenu.Controls(3).Enabled = False

[croydon]

Thanks RuralGuy, I didn't think it was as simple as that. I had actually found a way to do this below:

Dim Menu As Object, PMRMenu As Object, PMRItem As Object

For Each Menu In Application.CommandBars
If Menu.Name = "PMR" Then
For Each PMRMenu In Menu.Controls
If PMRMenu.BeginGroup = True Then
For Each PMRItem In PMRMenu.Controls
If PMRItem.Tag = 1 Then
PMRItem.Enabled = False
End If
Next PMRItem
End If
Next PMRMenu
End If
Next Menu

So for the customized menu named PMR, for each group, it checks the items and any found with a tag of 1 are disabled.

[RuralGuy]

Excellent! Are you ready to use the Solved thread tool on this thread yet?

[croydon]

Thread solved!