Save, Close, Quit & Reboot

[dgr]

Hi,
I'm using Excel 2013 on Windows 8.

As per the title of this thread, I want to save a workbook, wait for a few seconds, close the workbook, quit Excel & reboot my pc. I'm using the following macro which does not work because Windows refuses to shutdown saying that "cannot quit Excel".

Could you show me a macro that works? Thanks.

Sub shutdown()
ActiveWorkbook.Save
Application.Wait (Now + TimeValue("0:00:05"))
Application.DisplayAlerts = False
Application.Quit
Shell "C:\Windows\System32\shutdown.exe /r /t 0", vbHide 'reboot
End Sub

Interestingly, if I run this code on a small workbook, it works but not on a big workbook...

 

[hiker95]

dgr,

Try extending the TimeValue("0:00:05")

 

[dgr]

Thanks for your reply. Nope, that did not help. I increased the time value to 10 seconds. Any other ideas? Thanks.

 

[Blade Hunter]

That shouldn't work regardless of the workbook size:

Sub shutdown()
ActiveWorkbook.Save
Application.Wait (Now + TimeValue("0:00:05"))
Application.DisplayAlerts = False
Application.Quit
Shell "C:\Windows\System32\shutdown.exe /r /t 0", vbHide 'reboot <-- This comes after the application has quit, it is no longer running so will not see  this line to execute.
End Sub

I would imagine you can set the saved flag to true then just run the shutdown without the quit, the app will quit on the shutdown

 

[dgr]

Thanks for your reply Blade. I tried the following code based on my understanding of your explanation. While the rebooting took place smoothly, Excel's Document Recovery kicked in after the reboot claiming that my original file was not saved. Is there a more elegant solution you could think of? Thanks.

Sub shutdown()
ActiveWorkbook.Saved = True
Application.Wait (Now + TimeValue("0:00:05"))
Application.DisplayAlerts = False
Shell "C:\Windows\System32\shutdown.exe /r /t 0", vbHide 'reboot
End Sub

 

[Blade Hunter]

This will fix that just before the reboot:

activeworkbook.Saved = true

edit: Oh wait, I just saw you did that already.

Not sure what makes this happen then.