closing an application/file automatically after a certain time

[Sirish]

Hi All,

I would like to do the following, pls suggest me a vba code.

A test is to be taken on an excel file. Lets say the test is for 30 mins, i would like the excel file should be closed automatically after a duration of 30 mins from the time when it is opened.

Regards
Sirish

 

[Michael M]

Hi Sirish
Copy these into a standard module
Sub TIMER()
Application.Ontime _
EarliestTime:=Now + TimeValue("00:30:00"), _
Procedure:="Ontime"
End Sub

Sub Ontime()
ThisWorkbook.Close True
End Sub

Regards
Michael M

 

[robert phillips]

You might want to save the workbook automatically. Open Visual Basic Editor. Put this code in ThisWorkbook. Save the workbook. Close excel. Open the workbook you just saved. It should shut down 5 seconds later(testing for you) without giving a Save File Dialog.

Assuming Sheet1 was the sheet with the questions.


Private Sub Workbook_Open()
Dim TestTime, Total

Sheets("Sheet1").Activate

TestTime = 5 '5 seconds for testing so you can see it operate. Change to 1800

'TestTime = 1800 '30 minutes 1800 secs

Total = Timer + TestTime 'now + 30 min later
Do While Timer < Total
DoEvents 'let the worksheet/user interact
Loop

ThisWorkbook.Save 'your default filename it was opened as

Application.Quit 'end

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'to prevent file save dialog
SaveAsUI = False
End Sub