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

Thanks.


Kevin

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

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


.

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


.

Thanks much John.

You have been a great help.

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


.


.