Вариант точный
Приватный btn WithEvents как CommandBarButton
Приватное Sub btn_Click (ByVal Ctrl как Office.CommandBarButton, CancelDefault как булевско)
'испытайте ваше состояние для того чтобы отменить посылку
Если MsgBox, то («вы желаете послать? », vbYesNo) = vbNo после этого
CancelDefault = True
Закончитесь если
Закончите подводную лодку
Приватное Sub Workbook_Open ()
Установите btn = Application.CommandBars.FindControl (удостоверение личности: =2188)
Закончите подводную лодку
|