Re: Status der Symbolleisten abfragen
22.11.2002 08:49:51
Hajo_Zi
Hallo Frank
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Workbook_Activate()
Dim x As Long
For x = 1 To Toolbars.Count
On Error Resume Next
If Toolbars(x).Visible Then
Leiste(x) = Toolbars(x).Name
Toolbars(x).Visible = False
End If
Next x
' 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)
Dim x As Long
For x = 1 To 26
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
' 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()
Dim x As Long
For x = 1 To 26
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
' 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()
Dim x As Long
For x = 1 To Toolbars.Count
On Error Resume Next
If Toolbars(x).Visible Then
Leiste(x) = Toolbars(x).Name
Toolbars(x).Visible = False
End If
Next x
' 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_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Workbook_Open
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public Leiste(26) As String
' es gibt 15 Symbolleisten 5 noch für pesönliche
' bei XP gibt es 21 Symbolleisten 5 noch für pesönliche
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo