Countdown start upon opening of Workbook - close after 20 min.

[Blanchetdb]

Hi,

I presently have a workbook that numerous individuals can access but I need it the Workbook to automatically close after 20 minutes. I have entered coding and the workbook does close but regardless of the time I insert, it closes after 2 minutes

Private Sub Workbook_Open()
Application.OnTime DateAdd("n", 20, Now), "Thisworkbook.close_it"
End Sub


Sub Close_it()
ThisWorkbook.Close True
End Sub

what do I need to change so that it closes after 20 minutes and is it possible for a window to appear advising the person that they have 1 minute left until their session is closed?

thank you

 

[Yongle]

Message box would prevent file from closing until user responds

In ThisWorbook module

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:20:00"), "CloseMacro"
End Sub

In STANDARD module

Sub CloseMacro()
    ActiveWorkbook.Save
    ActiveWorkbook.Close False
End Sub

 

[Blanchetdb]

worked great....thank you