Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Button