View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
John Wilson John Wilson is offline
external usenet poster
 
Posts: 550
Default VBA code to automatically close file

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 wrote:

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

-----Original Message-----
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

Kevin wrote:

Does VBA code exist to automatically close a file after

a
specified period of time?

Thanks.

Kevin


.