Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call CmdDelete
End Sub

StandardModule: basMain

Sub CreateCmdBar()
   Dim oBar As CommandBar
   Call CmdDelete
   Set oBar = Application.CommandBars.Add( _
      "test", msoBarRight, False, False)
   oBar.Visible = True
End Sub

Sub CmdDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("test").Delete
ERRORHANDLER:
End Sub

    

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