CommandeBar

Sub symbole()
' Tastenkombination: Strg+l
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.EnabledNext
End Sub

Ich möchte jetzt aber das nicht reversibel haben, sonder mit einem Makro ausblenden und mit einem zweiten einblenden!

Sub symboleaus()
' Tastenkombination: Strg+l
Dim cb As CommandBar
ausblenden
End Sub

Sub symboleein()
' Tastenkombination: Strg+m
Dim cb As CommandBar
einblenden
End Sub

Ich komme nicht drauf!
Wir hilft mir
danke
Serge