Re: Symbolleisten
26.11.2002 16:24:43
Georg_Zi
Hallo Frankmeinstr Du Datei, Bearbeiten usw. ???
folgenden Code ergänzen
Option Explicit
Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("?").Visible = False
Application.CommandBars("Formatting").Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("?").Visible = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("?").Visible = True
End Sub
Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("?").Visible = False
Application.CommandBars("Formatting").Visible = True
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg