Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit VBA Befehl den PC runterfahren

Forumthread: Mit VBA Befehl den PC runterfahren

Mit VBA Befehl den PC runterfahren
29.12.2002 10:09:23
Sigi
Hallo,

ich glaub mich erinnern zu können, in einem Forum das Problem bereits gelesen zu haben. Irgend was mit Declare und Win DLL.
Falls es geht, hat jemand eine Ahnung wie man mit VBA in Excel den PC dazu bewegen kann, selbständig herunterzufahren?
Fragt nicht wieso, aber ich soll das realisieren.
Win98 und Win2000.
Lieben Dank
Sigi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mit VBA Befehl den PC runterfahren
29.12.2002 10:31:45
Ramses
Hallo Sigi,

indirekt über die Shell Anweisung:

OHNE GARANTIE FUER DATENVERLUST ODER ÄHNLICHES:

Sub ShutDownWindows()
X=Shell("C:\WINDOWS\RUNDLL.EXE SHELL32.DLL, SHExitWindows 1")
End Sub

Hier ist besonders auf die Schreibweise von SHExitWindows zu achten.

Der Rechner wird ohne Rückfrage und Datensicherung abgestellt.

Ich weiss allerdings nicht ob das unter Windows XP noch so funktioniert,.. aber einen Versuch ist es allemal mal wert.

Gruss Rainer

Anzeige
Lieben Dank an Gerd und Rainer
29.12.2002 17:57:02
Sigi
Habs zwar noch nicht versucht, wird aber sicher funktionieren.
Alleine ein Wegweiser genügt oft.
Danke
Sigi
Anzeige
;
Anzeige

Infobox / Tutorial

PC mit VBA Befehl herunterfahren


Schritt-für-Schritt-Anleitung

Um deinen PC mit VBA herunterzufahren, kannst du den Shell-Befehl verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub ShutDownWindows()
       X = Shell("C:\WINDOWS\RUNDLL.EXE SHELL32.DLL, SHExitWindows 1")
    End Sub
  4. Speichere das Modul und schließe den VBA-Editor.

  5. Führe das Makro ShutDownWindows aus, um den PC herunterzufahren.

Bitte beachte, dass der PC ohne Rückfrage und Datensicherung heruntergefahren wird. Teste diesen Befehl zuerst in einer sicheren Umgebung.


Häufige Fehler und Lösungen

  • Fehler: Der Befehl funktioniert nicht unter neueren Windows-Versionen.

    • Lösung: Überprüfe, ob der Pfad zu RUNDLL.EXE korrekt ist. In neueren Versionen von Windows kann es Änderungen geben, die den Befehl beeinflussen.
  • Fehler: Fehlermeldung beim Ausführen des Makros.

    • Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe dazu in die Excel-Optionen unter Trust Center und aktiviere die Makros.

Alternative Methoden

Wenn du keine VBA-Befehle verwenden möchtest, kannst du auch die Eingabeaufforderung nutzen:

  1. Öffne die Eingabeaufforderung (CMD).
  2. Gib den folgenden Befehl ein, um den PC herunterzufahren:

    shutdown /s /t 0

Diese Methode funktioniert ebenfalls, um den Computer schnell herunterzufahren.


Praktische Beispiele

Hier ist ein weiteres Beispiel, wie du den PC nach einer bestimmten Zeit automatisch herunterfahren kannst:

Sub ShutDownAfterDelay()
    Application.Wait (Now + TimeValue("00:01:00")) ' 1 Minute warten
    X = Shell("C:\WINDOWS\RUNDLL.EXE SHELL32.DLL, SHExitWindows 1")
End Sub

Dieser Befehl wartet eine Minute und fährt dann den Rechner herunter. Dies kann nützlich sein, wenn du sicherstellen möchtest, dass alle Arbeiten abgeschlossen sind.


Tipps für Profis

  • Sicherheitskopien: Stelle sicher, dass du alle wichtigen Daten gesichert hast, bevor du den PC herunterfährst.
  • Automatisierung: Du kannst den VBA-Befehl in Kombination mit anderen VBA-Befehlen nutzen, um komplexere Automatisierungen zu erstellen, z. B. Daten sichern, bevor du den PC herunterfährst.
  • Testumgebung: Teste alle Skripte in einer sicheren Umgebung, um ungewollte Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich den Befehl auch für Windows 10 verwenden? Ja, der Befehl sollte auch unter Windows 10 funktionieren, allerdings kann es Unterschiede in den Systempfaden geben.

2. Gibt es eine Möglichkeit, den PC automatisch zu starten, nachdem ich ihn heruntergefahren habe? Das automatische Starten des PCs kann nicht über VBA gesteuert werden. Du musst BIOS-Einstellungen verwenden, um den PC zu einem bestimmten Zeitpunkt automatisch zu starten.

3. Wie kann ich verhindern, dass der PC ohne Vorwarnung herunterfährt? Du kannst eine Bestätigungsabfrage in dein VBA-Skript einfügen, bevor der Shutdown-Befehl ausgeführt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige