Office: Excel 2007 - mit VBA den PC ausschalten - mögliche unerwünschte Nebenwirkungen ?

Hallo Forum,

hier
http://www.office-loesung.de/ftopic342940_0_0_asc.php
habe ich eine Code zum ausschalten des PC mittels VBA gefunden.
Dazu habe ich auch eine Beispielmappe angehängt, die folgenden Code verwendet:

Code:

Option Explicit

Dim strMsgBox As String
Dim objWMI As Object, objItems As Object, objItem As Object
 
 
Public Sub CommandButton1_Click()
    
    strMsgBox = MsgBox("Soll der PC wirklich ausgeschaltet werden?", vbOKCancel, "Warnung")
    
    If strMsgBox = vbCancel Then
        Exit Sub
    ElseIf strMsgBox = vbOK Then
        Set objWMI = GetObject("WinMgmts:{impersonationLevel=impersonate, (Shutdown)}!/root/cimv2")
        Set objItems = objWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
        For Each objItem In objItems
            objItem.Shutdown
        Next objItem
    End If
    
End Sub

Das klappt bei mir soweit auch gut, der PC schaltet sich aus.


1. Frage:
Abgesehen davon, dass nicht gespeicherte Daten verloren gehen, können sonst noch irgendwelche Nebenwirkungen auftreten?
Beispielsweise Fehler in der Registry oder Schäden an Programmen oder was weiß ich?

2. Frage:
In der Anwendung, in der dieser Code eventuell einmal eingesetzt werden soll, wird vorher per VBA alles gespeichert werden.
Einen Datenverlust befürchte ich dort also nicht.
Wenn ich jetzt aber den obigen Code in meiner Beispielmappe ausführe, den Rechner neu starte und Excel öffne, öffnet sich auch immer das Fenster der "Dokumentwiederherstellung" (siehe angehängtes .jpeg), obwohl in der Beispielmappe ja eigentlich nichts verändert wurde.
Kann ich dies irgendwie umgehen?
Natürlich soll die Dokumentwiederherstellung nicht dauerhaft ausgeschaltet werden, und sie nach Rechnerneustart per VBA wider zu aktivieren ist auch keine Option.


Dokumentwiederherstellung:


Beispielmappe:
Den Anhang Datei-Öffnen Multiselect.xls betrachten

 

Im Prinzip nur die gleichen, als wenn du bei laufenden Applikationen den Rechner über's Startmenü herunterfährst. Ich denke, es ist von der jeweiligen Software abhängig, ob ggf. noch ein Requester kommt, um nicht gespeicherte Daten auf die Platte zu bringen. Kommen die einen Augenblick zu spät, sind das die Programme, die beim Rechner-Shutdown als "kann nicht beendet werden" angemeckert werden.

Für sowas brauchst's keinen Software-Reset. Das schafft Microsoft auch im normal laufenden Betrieb alle Nase lang. ;-)

Wenn dort irgendwo eine Formel mit JETZT() oder ähnlichen Sachen drin ist, reicht das schon. Aber ich hätte vielleicht eine Idee:

Wenn Du die Shutdown-Routine in ein Add-In verfrachtest, könntest Du mit einer Schleife alle offenen Arbeitsmapen schließen, ggf. speichern. Wenn die Excel-Applikation dann "leer" ist, sollte der Shutdown sauberer laufen. Idee, ungetestet...

Gruß, Michael

 

Hallo Michael,

:D;)

Du sagst, es wäre im Prinzip das Gleiche, als wenn übers Startmenü heruntergefahren wird.
Darauf vertraue ich jetzt mal, denn meine Kenntnisse reichen nicht aus um dies zu beurteilen.



Die Idee mit dem Add.In ist vermutlich nicht schlecht, aber da ich erstens nicht weiß wie ich sowas erstelle, und zweitens die Anwendung in unserem Firmennetzwerk läuft, wo dann ja das Add.In auf jedem Rechner vorhanden sein müsste von dem eventuell irgendwann mal diese Anwendung gestartet werden könnte, und ich aus Prinzip lieber die Finger von Rechneränderungen (inkl. Installationen) oder irgendwelchen Eingriffen ins Netzwerk lasse, werde ich diese Möglichkeit nicht weiter verfolgen.


Aber hiermit:

hast Du mich wohl auf die richtige Fährte gebracht.
Um die Dokumentwiderherstellung zu vermeiden muss Excel sauber beendet werden.

Ich habs jetzt erst einmal getestet, aber folgendes scheint zu funktionieren:

Code:

Application.Quit
ThisWorkbook.Close Savechanges:=False

Dies als Zusatz ganz am Ende des Makros, und die unerwünschte Dokumentwiderherstellung tauchte nicht auf.
Werd ich später noch ein paar Mal versuchen.
Für den Falls das auch noch andere Excel-Mappen geöffnet sind, könnte man diese ja per Abfrage und Schleife schon im Vorhinein beenden.


Danke für den Zaunpfahl.
;O)

 

Ehrlich gesagt, war das sogar meine erste Idee, als ich antworten wollte. Aber dann hab ich einen Rückzieher gemacht und bin auf die Add-In Idee umgeschwenkt. Warum? Weil...

Ich hatte gedacht, daß nach einem Schließen der Mappe, in dem sich der laufende Code befindet, spätestens aber nach dem Schließen von Excel selbst (und damit auch dem VBA-Interpreter), auch der laufende VBA-Code beenden würde. Wenn ich meinen Fernseher ausschalte, kann ich danach auch keinen Sender mehr wechseln...

Sollte aber nach dem application.quit der Code selbst noch weiter bis zum regulären Ende laufen, dann ist das in der Tat die einfachere Methode.

Gruß, Michael

 

Hallo Michael,

Also ich habs jetzt mal in Ruhe und im Einzelschrittmodus getestet:
- "application.quit" beendet Excel unmittelbar und sofort, d.h. nach dieser Zeile kann kein weiterer Code ausgeführt werden
- "ThisWorkbook.Close" schliesst die Mappe sofort und unmittelbar. Auch hier kann kein weiterer Code ausgeführt werden (ausser man würde Ihn ins "BeforeClose-Ereignis" schreiben (getestet).

Ist also eigentlich doppelt gemoppelt, unnötig und logisch auch unsinnig beides zu verwenden.
Aber, immerhin, "application.quit" scheint Excel so sauber zu beenden, dass die Dokuwiederherst. nicht am Käfig rappelt.


Habe heute übrigens mal mit Chefchen gesprochen. Der ist ganz angetan von meiner Idee, in einer bestimmten Anwendung (die länger dauert) die letzte Aktion kurz vor Feierabend manuell zu starten, nach Ende der Aktion automatisch ne Mail zu verschicken und den Rechner runter zu fahren.