Close Workbook after 30 minutes automatically

[eli_m]

Hi,

I am getting this error:

For:

Module Code:

Option Explicit
Public Close_Time As Date
Sub start_Countdown()
    Close_Time = Now() + TimeValue("00:30:00")
    Application.OnTime Close_Time, "close_WB"
    End Sub
Sub stop_Countdown()
    Application.OnTime Close_Time, "close_WB", , False
    End Sub
Sub close_wb()
    ThisWorkbook.Save
If Application.Wait(Now + TimeValue("00:00:05")) = True Then
    MsgBox "Timed out after 30 minutes - Your work has been saved."
End If
    ThisWorkbook.Close
    End Sub

Workbook:

Top of code:

Option Explicit
Private Sub Workbook_Open()
    start_Countdown

.........

Bottom of code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    stop_Countdown
    start_Countdown
    End Sub

I only want the workbook to close when there has been no SheetChanges in the last 30 minutes. I want the timer to restart every time there is a SheetChange. Right now it is closing at 30minutes from opening.

Can anyone see what the problem is?

Thanks in advance!

 

[eli_m]

It sounds like you are trying to defeat the purpose of your original question. Wrap this thread up and start a new thread if you want to only monitor inactive time on a specific sheet.

no problems done: Close Workbook when Sheet is inactive