Symbolleiste
01.12.2007 22:29:00
thomas
wenn ich die Exceldatei öffne kommt immer die erstellte Symbolleiste. Siehe Code.
Der Fehler ist wenn ich die nächste Datei öffne kommt die gleiche Symbolleiste nochmal,
wie kann man das abstellen?
Gruß Thomas
'Option Explicit
Private Sub Workbook_Open()
'Application.CommandBars("Worksheet Menu Bar").Enabled = False
'eigene Symbolleiste anlegen für die Monate
Dim symb As CommandBar
Dim i As Integer
On Error Resume Next
' Erstellen der leeren Symbolleiste für das Turnier
Set symb = Application.CommandBars.Add("Turnier", _
Position:=msoBarTop, Temporary:=True)
With symb
.Left = 250
.Visible = True
End With
Set Symbol = Application.CommandBars("Turnier").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
'.FaceId = 2634
.Caption = "Menüe einblenden"
'.TooltipText =
.BeginGroup = True
'führe das Makro aus...
.OnAction = "Menüe_einblenden"
End With
Set Symbol = Application.CommandBars("Turnier").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
'.FaceId = 2634
.Caption = "Freilos"
'.TooltipText =
.BeginGroup = True
'führe das Makro aus...
.OnAction = "Finden"
End With
Set Symbol = Application.CommandBars("Turnier").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
'.FaceId = 2634
.Caption = "Spiele löschen"
.TooltipText = "Vorsicht"
.BeginGroup = True
'führe das Makro aus...
.OnAction = "Spiele_löschen"
End With
Set Symbol = Application.CommandBars("Turnier").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
'.FaceId = 1016
.Caption = "Spielbogen drucken"
'.TooltipText = ""
.BeginGroup = True
'führe das Makro aus...
.OnAction = "drucken"
End With
Sheets("Menüe").ScrollArea = "A$1:$B$24"
End Sub
Private Sub Workbook_Activate()
'Symbolleiste bim Aktivieren der Mappe einblenden
On Error Resume Next
Application.CommandBars("Turnier").Enabled = True
End Sub
Private Sub Workbook_Deactivate()
'Symbolleiste beim Wechseln auf anderes Blatt ausblenden
On Error Resume Next
Application.CommandBars("Turnier").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Beim Schließen der Datei die Symbolleiste wieder entfernen
On Error Resume Next
Application.CommandBars("Turnier").Delete
End Sub