Opzione esplicita
BTN riservato di WithEvents come CommandBarButton
btn_Click secondario riservato (ByVal Ctrl come Office.CommandBarButton, CancelDefault come booleano)
'verificare il vostro stato per annullare l'invio
Se MsgBox (“desiderate trasmettere? „, vbYesNo) = vbNo allora
CancelDefault = allinea
Concluder se
Concludere il sommergibile
Workbook_Open secondario riservato ()
Regolar BTN = Application.CommandBars.FindControl (identificazione: =2188)
Concludere il sommergibile
|