Gruppe
Menue
Problem
Wie kann ich beim Öffnen der Arbeitsmappe dem Arbeitsblattmenü einen weiteren Menüpunkt hinzufügen und beim Schliessen wieder löschen? Der Menüpunkt soll für 2 Sekunden den Anwendernamen anzeigen.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Dialog aufrufen").Delete
End Sub
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
oBar.Controls("Dialog aufrufen").Delete
On Error GoTo 0
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Dialog aufrufen"
.OnAction = "CallForm"
.Style = msoButtonCaption
End With
End Sub
ClassModule: frmSplash
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
End Sub
Private Sub UserForm_Initialize()
lblUser.Caption = Application.UserName
End Sub
StandardModule: basMain
Sub CallForm()
frmSplash.Show
End Sub