Restart my computer

[Jack Brown]

Hello
I have this code to restart a computer:
***********************************
Sub TurnOffPC()
Dim Action As Long
Application.DisplayAlerts = False
Action = ExitWindowsEx(EWX_SHUTDOWN, 0&)
Application.Quit
End Sub

***********************************
How do I assign it to a command button:think:?

[SamT]

With Worksheet Forms Command buttons, Assign sub TurnOffPC() as the Macro. Note that sub TurnOffPC() must be in a standard Module

With Worksheet Control Toolbox (and VBA UserForms) Command Buttons, copy the contents of the sub TurnOffPC() into the CommandButton_Click sub. Note that the CommandButton_Click sub is in the Worksheet Module.

[Jack Brown]

Thank you!
I did that, and changed "Action = ExitWindowsEx(EWX_SHUTDOWN, 0&)" to "Shell "shutdown -r -f -t 02", vbHide "
Worked perfectly- lost the document I put the button on :)

[gmayor]

Add a line of code to save the document before you close it.

[SamT]

:funnyashe





Sorry. BTDT meself.

[Kilroy]

Works great!


Sub TurnOffPC()
Dim Action As Long
Application.DisplayAlerts = False
Shell "shutdown -r -f -t 02", vbHide
ActiveDocument.Save
Application.Quit
End Sub

[Logit]

SamT:

"BTDT" <--- ????

:think:


NEVERMIND .... my old brain just engaged gears.

[Kilroy]

LOL I had to google it.