wie kann ich alle symbolleisten ausser meine eigene ausblenden!
Dieses aber nur solange wie meine Arbeitsmappe aktiv ist?
Sobald ich eine andere Arbeitmappe öffne möchte ich wieder die anderen
Symbolleisten alle sehen!
ist das möglich`?
gru
Swen
Private Sub Workbook_Activate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = (cb.Name = "MeineLeiste")
Next cb
End Sub
Private Sub Workbook_Deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = (cb.Name <> "MeineLeiste")
Next cb
End Sub