Как через 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

 

Leave a Reply

Your email address will not be published. Required fields are marked *