MsgBox not working and Reopen option

[eli_m]

Hi All,

For some reason this code works great but the MsgBox command doesn't work anymore:

Option Explicit
Public DownTime As Double

Sub StartTimer()
    DownTime = Now + TimeSerial(0, 30, 0)
    Application.OnTime DownTime, "ShutDown"
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime DownTime, "ShutDown", , False
 End Sub

Sub ShutDown()
    With ThisWorkbook
        Application.DisplayAlerts = False
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
        MsgBox "Timed out after 30 minutes - Your work has been saved and closed"
End Sub

Also is there a way to have a "Reopen" button so it reopens the Workbook it just closed as well as a "OK" button?

Thanks in advance!

 

[eli_m]

No. Any sort of Box requires user input to continue the code, so any code after that won't run until there is input. In order to save AND close a Workbook with code continuing, is to open a hidden Workbook that controls the code. I have a Macro Enable Template that always opens when I run Excel. But that hidden file will have to be created and saved for each user. It can be done programmatically as long as the document is Trusted.

Ahh I see. Okay - I'll work with this and see if theres any sync issues. If there is I'll remove the MsgBox