Close the excel application

[aman1234]

Hi Guys

Can anyone please help me to write vba code for "when we click on a commandbutton then close the excel application in 10 seconds."

Thanks

[sweep]

Hi,

How about this?

Sub due()
Application.Wait Now + TimeValue("00:00:10")
Application.Quit
End Sub

You may get a window pop up saking "Do you want to save the changes.."

To supress this,

Sub due()
Application.DisplayAlerts=False
Application.Wait Now + TimeValue("00:00:10")
Application.Quit
End Sub

[aman1234]

That works gr8. Thanks Sweep. Can you also tell me how to close the excel application if someone is not using it for about 20 minutes. That means some times people just open the application and don't do anything with this for a long time . Is it possible to close it automatically if the person is not using it for about 20 minutes.

[sweep]

Yes,

This code goes in the workbook area of the VBA editor.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim sCountDownTime As String
Application.OnTime Now + TimeValue("0:20:00"), "ShutDown"
End Sub

and this goes in a standard module

Sub shutdown()
Application.DisplayAlerts = False
'ActiveWorkbook.Save
Application.Quit
End Sub

Note that changes made won't be saved, unless you remove the ' from the above code.