Как запустить макрос перед выключением Windows

Question

Я хотел бы запустить макрос непосредственно перед Windows shutsdown, чтобы зарегистрировать время. Я написал ниже программу для запуска макроса сразу после запуска windows. Я поместил shortcut в папку Windows startup, чтобы при запуске окон он будет log текущего дня и даты.

Но как запустить макрос непосредственно перед выключением ПК. Тот же код ниже будет работать для Start up и shut down с little change. Но как запустить macro or code перед windows turns off

Private Sub Workbook_Open() 
' 
' Macro1 Macro 
' 
Dim Day As Date 
Dim Tim As Date 
Dim Row As Integer 
Dim Col As Integer 
Row = 1 
Col = 1 

Day = DateValue(Now) 
Tim = TimeValue(Now) 
While (Cells(Row, Col) <> "") 
Row = Row + 1 
Wend 
Cells(Row, Col) = Day 
Cells(Row, Col + 1) = Tim 

ThisWorkbook.Save 

' 
End Sub 

Answer 1

Если вы поместите что-то в папке автозагрузки, он не будет действительно работать при запуске, но при входе пользователя.

Чтобы запустить что-то при запуске или завершении работы, вам необходимо внедрить сценарии запуска или завершения работы с помощью групповой политики. В поле «Тип» введите «gpedit.msc», чтобы изучить групповую политику.

Другое решение - системный журнал событий, события из источника «eventlog» регистрируют всю активность запуска и останова.