Menü- und Symbolleisten schützen

Wie in den beiden Artikeln zu den Menüleisten ( Menüleisten (I) und  Menüleisten (II)) beschrieben, lassen sich die Menüleiste und die Symbolleisten beliebig manipulieren.
Um nun aber die Menü- und Symbolleisten vor Änderungen zu schützen, müssen alle Wege, über die die Leisten erreicht werden können gefunden und gesperrt werden. Dazu gehört auch das Ein- und Ausblenden von Symbolleisten.
So können die Symbolleisten über die Menüpunkte

• Ansicht -> Symbolleisten
• Extras -> Anpassen

erreicht werden. Mit den bereits bekannten Möglichkeiten können diese Menüpunkte dann deaktiviert werden.
Um z.B. eine Symbolleiste vor Veränderungen zu schützen, kann bereits beim Anlegen über die .Protection-Eigenschaft festgelegt werden, was für Manipulation erlaubt sind.

Dim cbsyml As CommandBar 
Set cbsyml = CommandBars.Add("Test", msoBarRight, False, True)
cbsyml.Protection = msoBarNoChangeVisible ' Kein Ändern der Anzeige  
cbsyml.Protection = msoBarNoCustomize  ' Keine Anpassung der Symbolschaltflächen
cbsyml.Protection = msoBarNoChangeDock ' Kein Andocken an anderen Stellen  
cbsyml.Protection = msoBarNoMove       ' Kein Verschieben  
' Die verschiedenen Parameter sind auch kombinierbar

Anschließend ist die Symbolleiste gegen Veränderungen geschützt. Diese Eigenschaften lassen sich auch jederzeit für die anderen Menü- und Symbolleisten konfigurieren.

Allerdings besteht weiterhin die Möglichkeit, die Symbolleisten über das Kontextmenü der Symbolleisten ein- bzw. auszublenden, anzupassen oder zu löschen.
Dieses Kontextmenü wird immer dann angezeigt, wenn man mit der rechten Maustaste in den Bereich der Symbolleisten klickt.
Laut der offiziellen Dokumentation zu Office 2000 von Microsoft Press kann dieses Kontextmenü über das CommandBars-Objekt CommandBars("Symbolleistenliste") geschützt werden...
Leider funktioniert dies mit der deutschen Bezeichnung nicht, sondern nur mit der englischen Version CommandBars("Toolbar List").

Das folgende Beispiel demonstriert das Setzen und Aufheben des kompletten Schutzes der Menü- und Symbolleisten. Dabei wird dem Funktionsaufruf AllowCommandBarCustomization als Parameter mitgegeben, ob die Leisten geändert werden können (True) oder geschützt werden soll (False).

Option Explicit 
Sub SymbolleistenSchützen()  
' True: Symbolleisten können angezeigt und verändert werden  
' False: Symbolleisten können nicht ein-/ausgeblendet und geändert werden  
AllowCommandBarCustomization True 
End Sub 
Function AllowCommandBarCustomization(bAllowEnabled As Boolean)  
' Je nach Wert des bAllowEnabled-Arguments gewährt bzw. verhindert  
' diese Prozedur den Zugriff auf  
' den Menüpunkt "Ansicht->Anpassen"  
' den Menüpunkt "Extras->Anpassen"  
' das Kontextmenü der Symbolleisten  
' die Schaltfläche "Weitere Schaltflächen" der Symbolleisten  
Dim mycbar As CommandBar 
For Each mycbar In CommandBars
  If bAllowEnabled Then 
    If mycbar.Visible Then mycbar.Protection = msoBarNoProtection
  Else 
    If mycbar.Visible Then 
      mycbar.Protection = msoBarNoChangeVisible + msoBarNoCustomize + _
      msoBarNoChangeDock + msoBarNoMove 
    End If
  End If 
Next mycbar
Set mycbar = CommandBars("Menu Bar")
CommandBars("View").Controls("Symbolleisten").Enabled = bAllowEnabled
' mycbar.Controls("Ansicht").Controls("Symbolleisten").Enabled = bAllowEnabled  
CommandBars("Tools").Controls("Anpassen...").Enabled = bAllowEnabled
' mycbar.Controls("Extras").Controls("Anpassen...").bAllowEnabled  
CommandBars("Toolbar List").Enabled = bAllowEnabled
End Function