Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bildschirmschoner und Energiesparmodus unterdrücken
zurück: Text direkt auf dem Bildschirm ausgeben weiter: Änderungen protokollieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Information Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Isabelle :-)
Menschin


Verfasst am:
10. Mai 2013, 21:04
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


Bildschirmschoner und Energiesparmodus unterdrücken - Bildschirmschoner und Energiesparmodus unterdrücken

Nach oben
       Version: Office 2k (2000)

Hallöchen,

hast du dich auch schon mal geärgert, weil mitten unter einem länger dauernden Programm der Rechner plötzlich den Bildschirmschoner aufrief und / oder in den Energiesparmodus ging und daher das Programm in einen Fehler lief? Bisher hast du dich vor den Rechner gesetzt und ab und zu die Maus bewegt um das zu verhindern, anstatt dich zu einem Pläuschchen mit den KollegInnen am Kaffeeautomaten zu treffen. Diese Zeiten sind nun vorbei, denn das lässt sich mit folgender API-Funktion verhindern:

Code:
Option Explicit

Private Declare Sub SetThreadExecutionState Lib "kernel32.dll" ( _
    ByRef esFlags As EXECUTION_STATE)
Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Private Enum EXECUTION_STATE
    ES_SYSTEM_REQUIRED = &H1
    ES_DISPLAY_REQUIRED = &H2
    ES_USER_PRESENT = &H4
    ES_AWAYMODE_REQUIRED = &H40&
    ES_CONTINUOUS = &H80000000
End Enum

Public Sub Beispiel()

    Dim lngRow As Long

    'Energiesparmodus und Bildschirmschoner unterdruecken
    Call SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or _
        EXECUTION_STATE.ES_DISPLAY_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)

    'nur damit Excel beschaeftigt ist
    For lngRow = 1 To Rows.Count
        Cells(lngRow, 1).Value = lngRow
        Call Sleep(100) 'damit es nicht ganz so schnell geht ;-)
    Next

    'Normalzustand des Rechners wiederherstellen
    Call SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)

End Sub

Beachte:

1. Das funktioniert natürlich nur, wenn zwischen den beiden Anweisungen ununterbrochen ein Makro läuft. Es hat keine Wirkung wenn du das im Workbook_Open-Event abschaltest und im Workbook_BeforeClose-Event wieder einschaltest.

2. Die DoEvents-Funktion im Code hebt die Wirkung wieder auf. Also, unbedingt auf DoEvents verzichten. Anschließend die Unterdrückung wieder einschalten kann nichts bringen. Sobald durch das DoEvents der Bildschirmschoner an ist, kann er per Programm nicht wieder abgeschaltet werden.

Eine Beschreibung der Parameter findest du hier: http://msdn.microsoft.com/en-us/library/windows/desktop/aa373208(v=vs.85).aspx Die Einschränkungen für die einzelnen Windows-Versionen beachten !!!

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Rechenoperationen mit ungütligen Werten unterdrücken 7 blue4u 84 28. Jun 2013, 11:34
blue4u Rechenoperationen mit ungütligen Werten unterdrücken
Keine neuen Beiträge Excel Formate: Laufzeitfehler 1004 unterdrücken 1 Dieter / Gast 4605 12. Apr 2009, 23:12
Jürgen_H Laufzeitfehler 1004 unterdrücken
Keine neuen Beiträge Excel Formeln: Zeilen unterdrücken in Excel 2 ulib 1322 27. Aug 2008, 18:07
Gast Zeilen unterdrücken in Excel
Keine neuen Beiträge Excel VBA (Makros): Datumsformat unterdrücken, Problem Textbox und ControlSource 1 talljohn 604 20. Jul 2008, 22:01
Kuwe Datumsformat unterdrücken, Problem Textbox und ControlSource
Keine neuen Beiträge Excel Formeln: grünes Dreieck unterdrücken (Formelfehler) 2 Schneebär75 2543 17. Jul 2008, 10:53
Schneebär75 grünes Dreieck unterdrücken (Formelfehler)
Keine neuen Beiträge Excel VBA (Makros): #ZAHL! #WERT .... unterdrücken 27 Gast 6968 04. Apr 2008, 11:23
Klaus-Dieter #ZAHL! #WERT .... unterdrücken
Keine neuen Beiträge Excel VBA (Makros): 3 Fragen: variable Range, Escape, Neuberechnung unterdrücken 6 Merhaba 1296 16. Dez 2007, 20:36
Merhaba 3 Fragen: variable Range, Escape, Neuberechnung unterdrücken
Keine neuen Beiträge Excel VBA (Makros): Aktualisierungsmeldung unterdrücken 4 Bernhard_Bernhard 2042 09. Nov 2007, 12:28
Bernhard_Bernhard Aktualisierungsmeldung unterdrücken
Keine neuen Beiträge Excel VBA (Makros): Error unterdrücken 1 BloodyNewbie 1011 31. Aug 2007, 16:34
Bloody Newbie Error unterdrücken
Keine neuen Beiträge Excel VBA (Makros): Fehlermeldung unterdrücken 4 Andreas S 699 28. Apr 2007, 21:14
Andreas S Fehlermeldung unterdrücken
Keine neuen Beiträge Excel Formeln: SVERWEIS, #NV unterdrücken 2 Linda G. 3298 06. Feb 2007, 19:25
Gast SVERWEIS, #NV unterdrücken
Keine neuen Beiträge Excel VBA (Makros): Nullwerte unterdrücken 4 Gast 1197 06. Okt 2006, 15:51
Gast Nullwerte unterdrücken
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum