Mit VBA den Computer ausschalten (Tipp_79) -
28.12.2008Mit dieser VBA-Routine wird der PC heruntergefahren:
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)
Global Const EWX_FORCE = 8
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Sub PC_Shutdown()
Dim LResult
LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub
Wenn Sie das Makro PC_Shutdown auf eine Schaltfläche legen, benötigen Sie nur noch einen Klick zum Feierabend.
