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!

 

[Skyybot]

It looks like you've closed the workbook so all code stops at .Close.

Sub ShutDown()
    With ThisWorkbook
        Application.DisplayAlerts = False
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open("YourFileLocation")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
       
End Sub

 

[eli_m]

It looks like you've closed the workbook so all code stops at .Close.

Sub ShutDown()
    With ThisWorkbook
        Application.DisplayAlerts = False
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open("YourFileLocation")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
      
End Sub

Ah I see. I'm getting this error with your code:

Is it because my workbook link is a sharepoint URL?

 

[Skyybot]

Are you using the statement Option Explicit? If so, DIM Ans as Variant

 

[eli_m]

Are you using the statement Option Explicit?

I am - Full code:

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
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open ("https://my.sharepoint.com/:x:/r/personal")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
      
End Sub

 

[Skyybot]

I am - Full code:

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
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open ("https://my.sharepoint.com/:x:/r/personal")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
     
End Sub

Are you using the statement Option Explicit? If so, DIM Ans as Variant

 

[eli_m]

Are you using the statement Option Explicit? If so, DIM Ans as Variant

Sorry that went over my head - what do you mean? I've posted the full code (pressed enter too quickly before)

 

[Skyybot]

Option Explicit
Public DownTime As Double
Dim Ans as Variant
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
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open ("https://my.sharepoint.com/:x:/r/personal")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
       
End Sub

 

[eli_m]

Option Explicit
Public DownTime As Double
Dim Ans as Variant
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
Ans = MsgBox("Would you like to continue working?", vbYesNo, "Done Working?")
           If Ans = vbYes Then
                     Application.Workbooks.Open ("https://my.sharepoint.com/:x:/r/personal")
           End If
        .Close Savechanges:=True
        Application.DisplayAlerts = True
    End With
      
End Sub

The message box worked great! but it didn't allow me to reopen my work book .Is it because it's a link?

 

[Skyybot]

And to answer your other question. I have had problems saving to Cloud locations. I had to use the local file that syncs.