My workbook keeps opening by itself!

Hi all,

I have just added some code to make my workbook close after it has been inactive for 5 minutes...this works fine except it opens itself up again after 5 minutes.
If I select 'Enable Macros' it closes immediately and if not, it will stay open.

Here is all of the code I put in for the auto shut down:
ThisWorkbook:

Private Sub Workbook_Open()
    dTime = Time
    On Error Resume Next
    Application.OnTime dTime + TimeValue("00:05: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:05:00"), "CloseMe", , False
    dTime = Time
    Application.OnTime dTime + TimeValue("00:05:00"), "CloseMe"
    On Error GoTo 0
End Sub

Module1:

Public dTime As Date

Sub CloseMe()
    Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
    ThisWorkbook.Close SaveChanges:=True
End Sub

Sub Message_Close()
Response = MsgBox("This file will automatically save and close after 5 minutes of inactivity", vbInformation, "This is a message")
End Sub

Any ideas what is going on?

It has to do with "Application.OnTime". That command starts the Windows timer so your macro knows when the five minutes has been reached. What is needed is to stop the timer with syntax resembling ...

"Application.OnTime EarliestTime:=Now + TimeValue("00:05:00"), Procedure:=AutoSave, Schedule:=False"
The "Schedule:=False" being the key.

However, I am experiencing the same issue with my workbook and have been unable to get the above to actually work. A search of the Forum here will realize most folks are using : See http://www.cpearson.com/excel/ontime.aspx for understanding how to stop the timer. Except I am one of those folks who can't wrap my mind around the syntax to get it working in on my workbook.

If you manage to get your project to function as desired, please give my post a go :
http://www.excelforum.com/excel-prog...e-display.html

Thanks !

Thanks for your advice.

I added this macro to stop it opening and closing...seems to work so far!

Sub End_Timer_Data()

Application.OnTime EarliestTime:=dTime + TimeValue("00:05:00"), _
Procedure:="CloseMe", Schedule:=False

End Sub