brauch euch nochmal! Konnte prima die Recherche verwenden, um beim Öffnen einer Datei alle Symbolleisten auszublenden (der erste Teil unten klappt also). Möchte dann aber ausschließlich die Standard-Leiste einblenden und bekomme die Meldung "Laufzeitfehler 91! Objektvariable oder With-Blockvariable nicht festgelegt!"
Bitte nicht zu doll die Zeilen belächeln - bin Rookie ;-))
Danke & Greetz
Michael
Private Sub workbook_open()
'Symbolleisten schließen
Dim obar As CommandBar
Dim irow As Integer
For Each obar In Application.CommandBars
If obar.Visible And obar.Type _
msoBarTypeMenuBar Then
irow = irow + 1
With ThisWorkbook.Worksheets("CmdBars")
.Cells(irow, 1).Value = obar.Name
obar.Visible = False
End With
End If
Next obar
'Dann nur Standard öffnen
With ActiveWindow
CommandBars("Standard").Enabled = True
End With