HERBERS Excel-Forum - die Beispiele

Thema: Rechner zu einem vorgegebenen Zeitpunkt ausschalten

Home

Gruppe

Ereignis

Problem

Wie kann ich zu einem bestimmten Zeitpunkt alle Programme beenden und den Rechner ausschaltern lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

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 TschuessEinleiten()
   Dim varTschuess As Variant
   varTschuess = InputBox("Wann soll der Rechner ausgeschaltet werden?", , _
      Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
   If varTschuess = "" Then Exit Sub
   Application.OnTime TimeValue(varTschuess), "Tschuess"
End Sub

Sub Tschuess()
  Dim LResult
  LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und OnTime

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Fehler 1004 bei Ontime
Ereignis Arbeitsblatt sperren abfangen Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis laufende ontime anzeigen lassen
application.ontime - irgendwo hängts!!! Change-Ereignis in Combobox unterdrücken
OnTime beenden! Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl Objekt_Error - Ereignis in UserForm
application.ontime change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen? Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus select Ereigniss UF Show
Ereignis zeitweise mit Fehler Ereignismakro
Selectereigniss in Spalte doppeltes Klick-Ereignis
Doppelklick-Ereignis VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic change ereigniss nicht ausführen Userform
Exit Ereignis Rekursiven Aufruf von Ereignissen verhindern