Opción explícita
BTN privado de WithEvents como CommandBarButton
btn_Click secundario privado (Ctrl de ByVal como Office.CommandBarButton, CancelDefault como boleano)
'probar su condición para cancelar el envío
¿Si MsgBox (“usted desea enviar? ”, vbYesNo) = vbNo entonces
CancelDefault = verdad
Terminar si
Terminar el submarino
Workbook_Open secundario privado ()
Fijar BTN = Application.CommandBars.FindControl (identificación: =2188)
Terminar el submarino
|