Выйти из 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/