Option Explicit
Sub RebootForce()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
Shell "shutdown -r -f -t 02", vbHide
End Sub
Sub RebootForcePC()
Dim Rep As Long
Application.DisplayAlerts = False
ActiveWorkbook.Save
Rep= ExitWindowsEx(EWX_FORCE, 0&)
Application.Quit
End Sub