Как через VBA отобразить диалог выключения компьютера?

ShutDownDialog

Бывают ситуации, когда программным путем нужно отобразить окно перезагрузки через VBA.

Данный скрипт поможет Вам в этом(этот скрипт взят из открытых источников и является не задокументированной возможностью VBA )

Создаем VBA Модуль вставляем код:

Private Declare Sub ShutDownDialog Lib «shell32.dll» Alias «#60″ (ByVal hwndOwner As Long)

Private Sub cmdShowShutDown_Click()
ShutDownDialog Hwnd
End Sub

Запускаем нажатием F5 и вы увидите диалог для перезагрузки или выключения компьютера, работает на всех версиях Windows и Office