workbook close on timer - query

[orsm6]

Hi all,
I am using this code in a workbook to activate a timer when it is opened, then after 15 minutes make it close and save changes. my question is, if I have this workbook open, then open another the timer seems to activate on that one too, then as a iswitch between it starts the timer again.

I have no issue with timer restarting, but how can I stop the macro from starting the timer on any other work book?

Private Sub Workbook_Activate()
    On Error Resume Next
    Application.OnTime dTime + TimeValue("00:15:00"), "CloseMe", , False
    On Error GoTo 0
    
End Sub
 
Private Sub Workbook_Deactivate()
    dTime = Time
    Application.OnTime dTime + TimeValue("00:15:00"), "CloseMe"
End Sub

TIA

 

[orsm6]

also, what if the workbook that I want to close is in the background? would this code shut the workbook that is currently up on the screen.

cheers.

 

[orsm6]

hi all... got this working.

for those that are interested, here is the code

pasted into ThisWorkbook

Private Sub Workbook_Open()
    
    
    dTime = Time
    On Error Resume Next
    Application.OnTime dTime + TimeValue("00:15:00"), "CloseMe"
    On Error GoTo 0
    
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.OnTime dTime + TimeValue("00:15:00"), "CloseMe", , False
    dTime = Time
    Application.OnTime dTime + TimeValue("00:15:00"), "CloseMe"
    On Error GoTo 0
End Sub

pasted into a new module

Public dTime As Date
Sub CloseMe()
'macro will close this workbook and save the changes made

    ThisWorkbook.Close Saved = False
End Sub