Gruppe
Menue
Problem
Am rechten Fensterrand soll eine neue Symbolleiste angelegt werden.
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