VBA Save and Quit problems

[JokelesComedian]

I am using Excel 2010 and I needed a way for my co workers to stop leaving the document open. I used the following code.
Private Sub Workbook_Open()
Changed = False
Application.OnTime Now + TimeValue("00:30:00"), procedure:="ThisWorkbook.Auto_Close"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Changed = True
End Sub

Private Sub Auto_Close()
If Changed = False Then
ThisWorkbook.Close SaveChanges:=True
End If
Changed = False
Call Application.OnTime(Now + TimeValue("00:30:00"), "ThisWorkbook.Auto_Close")
End Sub

The problem is that I only want it to close after inactivity after 30 mins. This saves and closes after 30 mins no matter what and it is annoying. Is there a way to change this so if a cell is updated the counter will stat over?

Thanks
JokelesComedian

 

[Fazza]

hi, please refer http://www.cpearson.com/excel/TimedClose.htm

 

[JokelesComedian]

hi, please refer http://www.cpearson.com/excel/TimedClose.htm

Thanks for the help.

 

[Fazza]

You're most welcome. regards