Menüleiste ist weg, wie bekomme ich sie wieder ??
11.08.2003 09:22:54
Christian
ich habe ein kleines Excel Programm gestartet das leider nicht ganz zu Ende gedacht wurde. Nachdem es alle Symbol- und Menüleisten geändert hat, macht es diese Änderungen leider nicht mehr rückgängig.
Wie kann ich nun die Menüleiste wieder einblenden ????
Dies ist der Workbook_Open Code:
Private Sub Workbook_Open()
Dim leiste As CommandBarControls, element As CommandBarControl
Set leiste = Application.CommandBars("worksheet Menu Bar").Controls
'Set element = Application.CommandBars("worksheet Menu Bar").Controls.Item(1)
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
With .CommandBars
With .Item("worksheet Menu Bar")
For Each element In leiste
.Controls(1).Delete
Next
End With
.Item("Standard").Visible = False
.Item("Formatting").Visible = False
End With
End With
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Ich denke Controls(1).Delete hats verursacht. Nur wie bekomme ich meine Standardleiste wieder ???
MfG
Christian