VBA: Hiding any visible toolbars except the Standard and Formatting toolbars.

[RusselJ]

Hi All

I have been scratching my head over this one.

With VBA how can I hide any toolbars that are visible, apart from the Standard and Formatting toolbars?

Would appreciate your thoughts

Russel

 

[RoryA]

Just loop, test the name of the commandbar and set its Visible property as appropriate.

 

[RusselJ]

Hi Rory, thanks for your reply.

Could I trouble you for an example as this is beyond my knowledge and the only examples I have been able to find are for hiding all the toolbars!

Russel

 

[RoryA]

Sure - something like this:

Sub hideEmCowboy()
    Dim cbr                         As Office.CommandBar

    For Each cbr In Application.CommandBars
        If cbr.Type = msoBarTypeNormal Then
            Select Case LCase$(cbr.Name)
                Case "standard", "formatting"
                    cbr.Visible = True
                Case Else
                    If cbr.Visible Then cbr.Visible = False
            End Select
        End If
    Next cbr
End Sub