Shutdown Excel through VBA?

[merlin_the_magician]

Can i instantly close down Excel by using a VBA code, without it prompting to save the workbook?

 

[jimboy]

It needs macros to be enabled...

Right mouse over the excel icon to the left of file and select view code, then paste this in;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

 

[merlin_the_magician]

I do not want it to save, i want it to exit excel instantly

 

[paulmellon]

whatever you initialised the excel.application refer to it by that, mine was XL.

If XL Is Nothing Then
MsgBox ("XL is already closed")
Else
XL.DisplayAlerts = False
XL.Quit
XL.Visible = False
Set XL = Nothing
Set ws = Nothing
End If

Thats it and it works for me perfect.
Paul

 

[merlin_the_magician]

Eh...? Doesn't work...

Let me rephrase my needs:
i want to fit a command button into a workbook that will instantly close excel, no questions asked

 

[onlyadrafter]

Hello

Do you mean close the workbook or close excel completely?

activeworkbook.close (0)

will close the active workbook.

 

[paulmellon]

ok, are you doing this using macros or are u using visual basic software, if u are using the software u need to create instances of excel.application and maybe even excel.worksheet also.

eg.
Dim WithEvents XL As Excel.Application
Dim WithEvents Wb As Excel.Workbook
Dim WithEvents ws As Excel.Worksheet

To close these instantly say attaching this cose to a button all u have to do is put the code in i suggested, u could alos just put in this to make it easier:

XL.DisplayAlerts = False
XL.Quit
XL.Visible = False
Set XL = Nothing
Set ws = Nothing

 

[merlin_the_magician]

Kill Excel completely, no questions asked, regardless of whatever workbook is open

 

[GaryB]

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub


HTH

GaryB

 

[merlin_the_magician]

Figured the application.quit allright. Just needed the displayalerts thing. Thank you!