Auto Closing of excel

[ian0530]

Hi Everyone please help with my problem.
I have these codes that automatically run at specified time stated in the macro,
But I would like to run it with time preferred by the user without editing the
time inside the program
Eg: I would like to run it for 10 minutes only. Upon opening the workbook
the inputbox will appear for user to set time. Thanks in advance!!!






Sub Workbook_BeforeClose(Cancel As Boolean)
'
Application.OnTime dTime, "ian", , False
End Sub
Sub Workbook_Open()


Application.OnTime Now + TimeValue("01:00:30"), "close"
End Sub






Public dTime As Date
Sub close()
dTime = Now + TimeValue("01:00:30")
Application.OnTime dTime, "close"


Windows("CLOSE.xls").Activate
ActiveWindow.Close False
End Sub

 

[marc005]

Public Sub Workbook_Open()

[put the procedures you want to run when the workbook is opened and before the workbook is saved and closed here]

SaveAndClose
End Sub


Public Sub SaveAndClose()
ActiveWorkbook.Save
Application.Quit
End Sub

Take care though ie you need to create a copy of the workbook without this code because
once you put that code in it will become difficult to edit the worksheet (another way would be to hold down the SHIFT key
when the workbook is opening to stop procedure from running)

Also it is better to use the Windows Task Scheduler rather than the Application.OnTime for somewhat "infrequent" tasks