View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
MBlake[_2_] MBlake[_2_] is offline
external usenet poster
 
Posts: 35
Default Auto Close Excel Workbook

Hi,
I need to ensure that a user has closed their Excel Workbook. I have added
the following code and Excel will do this but insists on asking the user to
click a messagebox OK button to note the system is closing. Is there a way
around this so that Excel will close even if a user is not there?. The
workbook contains other code to ensure all changes are saved after input
(via a userform) so I have no need to save the file prior to closing it.
The user is made aware when they open the Workbook that it will
automatically close after 30 minutes, hence I just need to be able to shut
it down remotely when a user has gone home and inadvertently left the file
open.

Thanks,
Mickey
================================================== ======
--- Module Code ---

Private Sub KillTheApp()
'
'
ThisWorkbook.Close savechanges:=False 'true ???
End Sub
================================================== ======
--- Workbook Code ---

Application.OnTime Now + TimeValue("00:30:00"), "KillTheApp"
================================================== ======