Toolbar

[ryne23]

I have created a custom toolbar using the wizard. Is there a way that I can gray out certain portions of the toolbar based on a security level number that I have implemented?

Thanks
Mike

 

[DeanWilliams]

Hi,

You can test for the security level and use:

[COLOR=blue]
    Dim cbrMyToolbar As CommandBar
    
    Set cbrMyToolbar = CommandBars("mnuMyToolbar")
        
    If Not blnHasAdmin Then [b]' Replace with your security check[/b]
        cbrMyToolbar.Controls([b]4[/b]).Enabled = False
        cbrMyToolbar.Controls([b]6[/b]).Enabled = False     
    Else
        cbrMyToolbar.Controls([b]4[/b]).Enabled = True
        cbrMyToolbar.Controls([b]6[/b]).Enabled = True
    End If
[/color]

CommandBars collection requires you to set a reference to Microsoft Office x.0 Object Library.

You need to change the index numbers for the controls (in bold above) to point to the buttons you want to disable. Count the position of the button starting from the left.
HTH. Good Luck,

Dean