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