Button beim Öffnen der Arbeitsmappe

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Button beim Öffnen der Arbeitsmappe
von: Kerstin
Geschrieben am: 14.07.2002 - 00:11:12

Und noch eine Frage,
wie kann ich beim Öffnen einer Arbeitsmappe automatisch in der Standardleiste einen Button plazieren der ein Makro aufruft und beim schließen der Arbeitsmappe den Button wieder entfernen?

Danke Kerstin


nach oben   nach unten

Re: Button beim Öffnen der Arbeitsmappe
von: Silvio
Geschrieben am: 14.07.2002 - 02:16:02

Als erstes Arbeitsmappe starten, anschließend die Tasten [Alt+F11] drücken. (Alt+F11= VBEditor öffnen)
Nachdem der VB-Editor geöffnet hat, doppelt auf
"Diese Arbeitsmappe" klicken und den 1.Teil des Code einfügen:

'1Teil:


Private Sub Workbook_Open()

'Symbolleiste beim starten der Arbeitsmappe öffnen
Dim symb As CommandBar
Dim As Integer
On Error Resume Next

'Erstellen einer vorerst leeren Symbolleiste 
Set symb = Application.CommandBars.Add("Name", _
Position:=msoBarTop, Temporary:=True)
With symb
.Left = 0
.Visible = True
End With

'Bezeichnung wie die Symbolleiste heißen soll:
Set Symbol = Application.CommandBars("Name").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
.FaceId = 2634

'Bezeichnung der Schaltfläche
.Caption = "Hier deine Bezeichnung rein"
.TooltipText = "Bla Bla Bla"
.BeginGroup = True
'Makroname, welches bei Klick ausgeführt wird
.OnAction = "Name"
End With
End Sub


Private Sub Workbook_Activate()

'Symbolleiste beim Aktivieren der Mappe einblenden
On Error Resume Next
Application.CommandBars("Name").Enabled = True
End Sub


Private Sub Workbook_Deactivate()

'Symbolleiste beim Wechseln auf andere Mappe ausblenden
On Error Resume Next
Application.CommandBars("Name").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Beim Schließen der Mappe, Symbolleiste entfernen
On Error Resume Next
Application.CommandBars("Name").Delete
End Sub

'++++++++++++++++++++++++++++++++++++++++++++++++++++++
'den zweiten Teil bitte so kopieren:
'IM VB EDITOR:
'Gehe auf 'Einfügen' - 'Modul',
'das neue Modul doppelt anklicken und Teil 2 reinkopieren
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
'2.Teil:

Sub Name()
MsgBox "Alles klar!"
End Sub


'Hoffe das hilft weiter...
Bye Silvio

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Button beim Öffnen der Arbeitsmappe"