Gruppe
Menue
Problem
Eine benutzerdefinierte Symbolleiste soll vor Veränderungen durch den Anwender geschützt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo ERRORHANDLER
Application.CommandBars("MeineBar").Delete
ERRORHANDLER:
End Sub
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim iCounter As Integer
On Error Resume Next
Application.CommandBars("MeineBar").Delete
On Error GoTo 0
Set oBar = Application.CommandBars.Add( _
Name:="MeineBar", _
Position:=msoBarTop, _
MenuBar:=False, _
temporary:=True)
For iCounter = 1 To 10
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Menüpunkt " & iCounter
.Style = msoButtonCaption
End With
Next iCounter
oBar.Protection = msoBarNoCustomize
oBar.Visible = True
End Sub