WorkBook Timer

[ianb]

[pre]

Sub WorkbookTime()
Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes
Application.DisplayAlerts = True
TimeInMinutes = 10 'Timer is set for x minutes; change as needed.
If TimeInMinutes > 5 Then
TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)
Start = Timer
Do While Timer < Start + TotalTimeInMinutes
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False
MsgBox "The PSO Dashboard has been open for " & TotalTime / 60 & " minutes.  You have 5 minutes to save before The Dashboard closes."
End If

Start = Timer
Do While Timer < Start + (5 * 60)
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False
MsgBox "Excel will now close."
Application.Quit
End Sub

[/pre]

 

[Hui]

Ianb


When posting a file like this can you please add:

• A Description of what it does
• Details on how to use it
  Please put a single ` before and after any code so that Indents are maintained

 

[ianb]

Yes. Will do.

 

[ianb]

Do you want to remove this entry and I will readd with the criteria you have requested.


Future entries will match your criteria.