Wahl ausdrücklich
Privates WithEvents BTN als CommandBarButton
Privates Vorbtn_Click (ByVal Ctrl als Office.CommandBarButton, CancelDefault, wie Boolesch)
'Ihren Zustand prüfen, um senden zu annullieren
Wenn MsgBox („möchten Sie senden? “, vbYesNo) = vbNo dann
CancelDefault = richten aus
Beenden wenn
Unterseeboot beenden
Privates VorWorkbook_Open ()
Einstellen BTN = Application.CommandBars.FindControl (Identifikation: =2188)
Unterseeboot beenden
|