Forzar Cierre

Los procedimientos que se relacionan a continuación son complementos que puedes utilizar en cualquier código realizado por ti, de modo que cuando el procedimiento se complete, se apague automáticamente tu sistema.

En suma, es una muy buena aplicación que nos puede ayudar de muchas maneras. 

El comando shutdown permite a un usuario apagar un equipo desde la línea de comandos de Windows (cmd),  los argumentos son los siguientes:

Sin argumentos	Mostrar este mensaje (lo mismo que -?)
-I	Mostrar interfaz GUI, debe ser la primera opción
-L	Cierre la sesión (no se puede utilizar con la opción-m)
-S	Apagar el equipo
-R	Apagar y reiniciar el equipo
-Una	Anular el apagado del sistema
-M \ \ equipo	El equipo remoto para apagar / reiniciar / cancelar
-T xx	Ajuste de tiempo de espera de apagado en xx segundos
-C "comentario"	Comentario de apagado (máximo de 127 caracteres)
-F	Fuerza el cierre de aplicaciones sin previo aviso
-D [u] [p]: xx: yy	El código de motivo de apagado u es el código de usuario p es un proyecto de código de parada xx es el código de las principales razones (entero positivo menor que 256) yy es el código secundario del motivo (entero positivo menor que 65536)

Este comando lo utilizaremos en nuestro código con distintas combinaciones para forzar a nuestro sistema al cierre, al igual que utilizamos shutdown también podríamos utilizar cualquier otro comando del cmd, esto lo dejo a vuestra imaginación...

Comandos cmd

Sub ApagarPC()

      ActiveWorkbook.Save

      Application.DisplayAlerts = False

      Application.Quit

      Shell "shutdown -s -t 02", vbHide

End Sub

Sub ReiniciarPC()

      ActiveWorkbook.Save

      Application.DisplayAlerts = False

      Application.Quit

      Shell "shutdown -r -t 02", vbHide

End Sub

Sub ForzarPC()

      ActiveWorkbook.Save

      Application.DisplayAlerts = False

      Application.Quit

     Shell "shutdown -r -f -t 02", vbHide

End Sub

Espero que os sea de utilidad…..