Count Down Timer

[JustinJ]

Hi All,
I have an excel file that I do not want to be shared. However, it will have multiple users throughout the day and is stored on a server. I set a time limit on the file to automatically save and close after 15 minutes. I would like to have a timer so the users can see how much time they have left to complete their inputs. Does any one have any suggestions?

This is my code for the timer, but I would like for it to reset before closing or immediately after opening:

 Sub timer()

     interval = Now + TimeValue("00:00:01")

     If Range("A1").Value = 0 Then Exit Sub

     Range("A1") = Range("A1") - TimeValue("00:00:01")

     Application.OnTime interval, "timer"

 End Sub

 

[Micron]

Use the workbook open event to set the cell value? If I can see this, what's stopping me from increasing the value in the cell?
I think I would use that open event to set a public variable value and have the code subtract from that rather than
a) keep hitting the sheet for a value
b) having to worry about anyone altering the cell value.

 

[JustinJ]

This is just a visual representation of what is happening in the background. I already have the code to save and close the file.
How to save and close workbook after inactivity for a certain amount of time?