VBA code to automatically close file

  • Thread starter Thread starter Kevin
  • Start date Start date
K

Kevin

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

Thanks.


Kevin
(e-mail address removed)
 
Kevin,

In a regular module, try the following:

Sub Auto_Open()
' 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
 
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
 
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
 
Back
Top