'Standard-Symbolleisten und Kontextmenüs verstecken 
For Each cmdBar In Application.CommandBars 
  Debug.Print cmdBar.Index & "; ;" & cmdBar.Name 
  If cmdBar.Type = msoBarTypeNormal And cmdBar.Visible = True Then 
    'Symbolleisten werden unsichtbar gemacht 
    gcolVisibleCommandBars.Add cmdBar, cmdBar.Name 
    cmdBar.Visible = False 
  ElseIf cmdBar.Type = msoBarTypePopup And cmdBar.Enabled = True Then 
    'Kontextmenüs werden 'geleert' und deaktiviert 
    gcolVisibleCommandBars.Add cmdBar, cmdBar.Name 
    For Each cmdBarControl In cmdBar.Controls 
      cmdBarControl.Delete 
    Next cmdBarControl
    cmdBar.Enabled = False 
  End If 
Next cmdBar 
 
'Das Ding ist tatsächlich nicht in der Auflistung 
Application.CommandBars("Toolbar List").Enabled = False