Expliciete optie
Privé BTN WithEvents als CommandBarButton
Privé Subbtn_Click (ByVal CTRL als Office.CommandBarButton, CancelDefault zoals Van Boole)
'test uw voorwaarde om te annuleren verzenden
Als MsgBox („wenst u te verzenden? “, vbYesNo) = vbNo toen
CancelDefault = Waar
Eind als
Sub van het eind
Privé SubWorkbook_Open ()
Vastgesteld BTN = Application.CommandBars.FindControl (identiteitskaart: =2188)
Sub van het eind
|