Option Explicit
Public dTime As Date
Public Sub time_to_close()
dTime = Now + TimeValue("00:10:00")
'MsgBox ("It has been 15 minutes since you opened the WIP, Time to save and close it!")
If UCase(Application.UserName) = "ME" Or UCase(Application.UserName) = "MYCOWORKER" Then
'do nothing
Else
Workbooks("FILENAME.XLSM").Close SaveChanges:=True
Application.OnTime dTime, "time_to_close"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Turn off onTime calls
If UCase(Application.UserName) = "ME" Or UCase(Application.UserName) = "MYCOWORKER" Then
'do nothing
Else
Application.OnTime dTime, "time_to_close", , False
End If
End Sub
Private Sub Workbook_Open()
If UCase(Application.UserName) = "ME" Or UCase(Application.UserName) = "MYCOWORKER" Then
'do nothing
Else
dTime = Now + TimeValue("00:10:00")
Application.OnTime dTime, "time_to_close"
End If
End Sub