Menüleisten schliessen
Wolfgang
den nachfolgenden Code habe ich immer in Excel-XP eingesetzt, um alle "überflüssigen" Menüleisten bei Workbook_Open zu schliessen. Nun habe ich auf Excel 2007 gewechselt und der Code läuft nicht mehr. Wie müßte ich ihn umstellen, damit letztlich noch die "Standard"-Leiste (bei XP) verbleibt und alles andere geschlossen wird bzw. dann bei Workbook before Close wieder "geöffnet" werden? - Danke schon jetzt für die Rückmeldungen.
Option Explicit
Dim CdbList()
Dim n%
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim i As Integer
If Application.DisplayFormulaBar = False Then Application.DisplayFormulaBar = True ' _
Bearbeitungsleiste
If Application.DisplayStatusBar = False Then Application.DisplayStatusBar = True ' _
Bearbeitungsleiste
Dim Cdb As CommandBar
On Error Resume Next
n = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type msoBarTypeMenuBar Then
ReDim Preserve CdbList(n)
CdbList(n) = Cdb.Name
n = n + 1
Cdb.Visible = False
End If
Application.CommandBars("Standard").Visible = False
Next Cdb
End Sub
Anzeige