Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Benutzerdefinierte Menüleiste vor Veränderungen schützen

Gruppe

Bar

Problem

Eine benutzerdefinierte Symbolleiste soll vor Veränderungen durch den Anwender geschützt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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

    

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