Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
.Controls.Add Type:=msoControlPopup, before:=.Controls.Count - 1
With .Controls(.Controls.Count - 2)
.Caption = "&Auswertung"
.Controls.Add Type:=msoControlButton, before:=1
.Controls.Add Type:=msoControlButton, before:=2
.Controls.Add Type:=msoControlButton, before:=3
With .Controls(1)
.Caption = "&Fehleranalyse"
.OnAction = "Import"
.BeginGroup = False
.FaceId = 1096
End With
With .Controls(2)
.Caption = "&Auswertungsdatei erstellen"
.OnAction = "Export"
.BeginGroup = True
.FaceId = 159
End With
With .Controls(3)
.BeginGroup = True
.FaceId = 160
.Caption = "Auswertungsdatei(en) &Drucken"
.OnAction = "AuswertungDrucken"
End With
End With
End Sub
Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Visible = True
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Delete
End Sub