Restart

[Guest]

Hi
Thanx evry1 who helped me to get thru my practs, its much appreciated.

I'm now faced with a scenario where i have a month end macro, but i need
this macro to run when i leave the office at the end of the month. can a
macro be written to shut the pc down so that its not on for the wknd or
overnite.

please advice or if possible steer me in the direction with a syntax help!!!!!

thanx in advance

regards

 

[Incidental]

Hi

Have a look at this previous post it has a solution posted by
keepitcool.

hope it helps you out

S


Could someone point me at some VBA to shut down a local PC
after a certain time. I'm okay with the Application.OnTime
method. And I've found the C code for the "ExitWindowsEx"
function but I'm afraid it's beyond me to convert to VBA.

All help welcome - Thanks - Phil


Reply Rate this post:

2 From: keepitcool - view profile
Date: Fri 17 Oct 2003 08:11
Email: keepitcool <[email protected]>
Groups: microsoft.public.excel.programming
Not yet ratedRating:
show options
Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse | Find messages by this author


Phil, the VBA for the C code you found..


'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Private Sub ShutDown()
Dim ret&
If MsgBox("Press Cancel to PREVENT Shutdown!", _
vbOKCancel + vbCritical + vbApplicationModal) = vbCancel Then End
'reboot the computer
'ret = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
'shutdown
ret = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub


keepITcool

 

[Guest]

hi
do i need an addin for this, cos me ffg this code brings only the msgbox
but does not activate the shutdown process...

Help