MyTetra Share
Делитесь знаниями!
Выйти из Excel с помощью макроса
27.12.2017
22:42
Текстовые метки: Excel, msgbox, VBA, выход, макрос
Раздел: VBA - Excell

Выйти из Excel с помощью макроса


Sub Выход()

Dim txtСообщение As String, txtЗаголовок As String

Dim КнопкиAs Integer, Результат As Integer

txtСообщение = “Вы действительно хотите выйти из Excel?”

txtЗаголовок = “До свидания!”

Кнопки = vbYesNo + vbQuestion + vbfautButton2

Результат = MsgBox(txtСообщение, Кнопки, txtЗаголовок)

If Результат = vbYes Then

Application.Quit

Else

MsgBox  “Спасибо,  что  Вы  остались “, vbOKOnly, “Снова привет!”

End If

End Sub

Дополнительную информацию смотрите в разделе Приемы: http://msexcel-vba.ru/sample-page/

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования