VBA code to automatically close file

[Kevin]

Does VBA code exist to automatically close a file after a
specified period of time?

Thanks.


Kevin
(e-mail address removed)

 

[John Wilson]

Kevin,

In a regular module, try the following:

Sub Autpen()
' Following line will call "CloseMe" in 1 minute
Application.OnTime Now + TimeValue("00:01:00"), "CloseMe"
End Sub

Sub CloseMe()
' If you want to save it before closing
ThisWorkbook.Save
' To quit Excel altogether
Application.Quit
' To just close the workbook and leave Excel open
ThisWorkbook.Close
End Sub

John

 

[Kevin]

Thanks John.

I did get this code to work with it configured
for "Application.Quit". However, gefore the file is
closed a message box prompts "Do you want to save the
changes you made to ...?"

How can I get the file to auto close/quit without issuing
this message?

Thanks.

Kevin

 

[John Wilson]

Kevin,

Two ways.........
Just before that code to quit

Application.DisplayAlerts = False

or......
fool the workbook into thinking it's already saved

ThisWorkbook.Saved = True
(just before the Quit coding)

John

 

[Kevin]

Thanks much John.

You have been a great help.

Kevin