Auto Log out of shared Spreadsheets

[DPChristman]

I use a lot of shared spreadsheets for tracking activity of my field colleagues.

The user will open the spreadsheet, assuming no one else is not already in the spreadsheet, and enter their information.

Then when they are done, they (are supposed to) save and get out of the spreadsheet.

On a regular basis, the user will forget the get out of the spreadsheet, and no one can get in until they do.

Is there a way to have a forced close of the document after a certain period of time with no activity(ex: 15-20 minutes)?

I am thinking something like a macro, but it would be above my skill set.

 

[DPChristman]

I have noticed an issue lately with this function. Even if I am actively entering data, and there is no period of inactivity, the spreadsheet still saves and exits, sometimes while I am entering data.

This really only happens with me, because I am the only one who works on repairs and updates to the form.

Anything here I should be changing?
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:15:00")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ActiveWorkbook.Close Savechanges:=True
End Sub