Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If MsgBox("Tatsächlich schon wieder schließen?", _
    vbQuestion + vbYesNo) = vbYes Then
    On Error Resume Next
    Application.CommandBars("MeineLeiste").Delete
    On Error GoTo 0
    Cancel = False
  Else
    Cancel = True
  End If
End Sub

Private Sub Workbook_Open()
  Dim oBar As CommandBar
  Dim oBtn As CommandBarButton
  Set oBar = Application.CommandBars.Add("MeineLeiste")
  Set oBtn = oBar.Controls.Add
  oBar.Visible = True
  oBtn.Caption = "Es ist nur ein Test"
  oBtn.Style = msoButtonCaption
  ActiveWorkbook.Close
End Sub

    

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