Save and exit automatically

[AnsiSys]

Hi!
I wanted to make a short macro, which saves and closes my exce
workbook automatically when I haven't done any changes within last 1
mins.

The code below shows how to do it, but it also causes som
disfunctions. For example the 'Find' command doesn't work while thi
code is running.

Please give a tip if you know better way to do this or it you know wha
changes I should do to this code to make it work properly.

Thanks!
-AnsiSys

-----Cut here------
Dim Changed As Boolean

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

Private Sub Workbook_Open()
Changed = False
Dim Time1
Dim Time2
Start:
Time1 = Timer: Time2 = Timer
Do Until Time2 - Time1 > 600 Or Changed = True
DoEvents
Time2 = Timer
Loop
If Changed Then Changed = False: GoTo Start
If Me.Saved = False Then Me.Save
Me.Close
End Sub
-----And here-----

 

[Tom Ogilvy]

Use application.OnTime instead:

See Chip Pearson's page on this:

http://www.cpearson.com/excel/ontime.htm

 

[AnsiSys]

Hi!

Thanks for the tip! But now I have another problem.
How to close just the active workbook?
------------------------------------------------------
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
'
' The procedure is called by Windows. Put your
' timer-related code here.
'
' -# Both of these lines will close all documents and
' exit Excel #-

ThisWorkbook.Close
ActiveWorkbook.Close

' -# This line doesn't work, because this code has to be
' in module #-

Me.Close

End Sub