Help with code forcing specific workbook to close after inactivity.

[Sean15]

Hi:

This code closes Excel workbook after two minutes of inactivity. But I noticed something odd. If I have two workbooks open, Excel closes the last open workbook when the code executes. Could code be adjusted so Excel will only close workbook SW 070222.xlsm after two minutes of inactivity? Code saved in VBA project module 1

File path: C:\Users\mycar34\Documents\Articles\SW 070222.xlsm

Dim CloseTime As Date

Sub TimeSetting()

Application.CutCopyMode = False

CloseTime = Now + TimeValue("00:02: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

 

[Tom Urtis]

I'm just guessing here,
but perhaps instead of

ActiveWorkbook.Close Savechanges:=True
you specify the workbook of interest, which presumably is the one where this code is, so
ThisWorkbook.Close Savechanges:=True

It might also help if you stick a WorkbookActivate and WorkbookDeactivate procedure in the workbook module to cause the workbook to keep monitoring the passage of time, in case you have conflicting code somewhere else in the project that is interrupting the procedure you posted.

Did I mention I'm just guessing here.

 

[Sean15]

You guessed it right.