@Hajo_Zi Problem mit Deinem Makro
07.09.2005 22:56:15
MartinM
Danke forest für den Beitrag im Forum bei welchem Du das Makro zur ausblendung und Einblendung der Symbolleisten gepostet hast.
Warum verliert die Public Variable Leiste ihre Werte?
mit dem beenden werden die Symbolleisten nicht wiederhergestellt.
Gruss und voresr schon vielen Dank
Martin
Hier das Script
in einem Modul
Public Leiste(25) As String
in diese Arbeitsmappe
Option Explicit
Private Sub Workbook1()
'_BeforeClose(Cancel As Boolean)
Dim x As Long
On Error Resume Next
Application.ShowWindowsInTaskbar = True
For x = 1 To 25
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
'Menüs_einblenden
'KontextmenüWiederherstellen
End Sub
Private Sub Workbook_Activate()
'
Dim x As Long
On Error Resume Next
Application.ShowWindowsInTaskbar = False
For x = 1 To Toolbars.Count
If Toolbars(x).Visible Then
Leiste(x) = Toolbars(x).Name
Toolbars(x).Visible = False
End If
Next x
'Menüs_ausblenden
'KontextmenüpunkteLöschen
End Sub
Private Sub Workbook_Deactivate()
Dim x As Long
For x = 1 To 25
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
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
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Workbook_Open
End Sub