Thread: OnTime problem.
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default OnTime problem.

No, it will only cancel the specific Ontime event scheduled for the time
provided. You should not have more than one ontime event pending - have the
ontime event schedule the next one. This is demonstrated by Chip Pearson:

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

--
Regards,
Tom Ogilvy

"GCF" wrote in message
...

Please help me. I am making an attempt to learn VBA via the cut and
paste / trial and error methods. Enclosed is some code I put together
that seems to work fine until I close the file and within 15 seconds,
the closed file is resurrected in the "SaveFile" procedure. It is my
understanding that executing OnTime with Schedule equal to False will
override and cancel any pending OnTime process. What am I doing wrong?


Sub Auto_Open()

Application.StatusBar = False ' Clear previous

oldStatusBar = Application.DisplayStatusBar ' Save existing
Application.DisplayStatusBar = True ' Turn on
StatusBar
Application.StatusBar = "GCF" ' TEST Use GCF for
test

MsgBox ("Start " & Now & " " & MyTime) ' TEST

Call SaveFile

End Sub

Sub SaveFile()

' ActiveWorkbook.Save ' Save File
MsgBox ("SaveFile " & Now & " " & MyTime) ' Test

Application.OnTime Now + TimeValue("00:00:15"), _
"SaveFile" ' Re-run every TmeValue ' Schedule SaveFile
to exec again

End Sub
Sub Auto_Close()

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Application.DisplayStatusBar = oldStatusBar ' Restore to orig
StatusBar
Application.DisplayStatusBar = False ' Turn off
StatusBar Display

MsgBox ("Auto_Close " & Now & " " & MyTime) ' Test

On Error GoTo 0 ' Turn off error
trapping.
On Error Resume Next ' Defer error
trapping.
Application.OnTime Now + TimeValue("00:00:02"), _
"Terminator", , False ' Override
Application.OnTime in play

End Sub

Sub Terminator() ' Stub for
Auto_Close OnTime
End Sub


--
GCF
------------------------------------------------------------------------
GCF's Profile:

http://www.excelforum.com/member.php...fo&userid=4124
View this thread: http://www.excelforum.com/showthread...hreadid=262367