Closing Excel Application using VBA

Question

I have used the following without success. The active workbook closes, indeed, but the excel window remains open.

Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

Which is the command that terminates the application?

EDIT

To say a little more: In the workbook Open event I run a macro. I want to terminate the application when that macro finishes. I also tried this without success.

Private Sub Workbook_Open()
   Macro_MyJob
   Application.Quit
End Sub

Where should I put this Application.Quit command?

variant · Accepted Answer · 2010-09-02 16:00:24Z

73

I think your problem is that it's closing the document that calls the macro before sending the command to quit the application.

Your solution in that case is to not send a command to close the workbook. Instead, you could set the "Saved" state of the workbook to true, which would circumvent any messages about closing an unsaved book. Note: this does not save the workbook; it just makes it look like it's saved.

ThisWorkbook.Saved = True

and then, right after

Application.Quit

answered Sep 2, 2010 at 16:00

variant

1,3742 gold badges11 silver badges18 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Leng Keong · Accepted Answer · 2013-04-29 08:14:35Z

15

To avoid the Save prompt message, you have to insert those lines

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

After saving your work, you need to use this line to quit the Excel application

Application.Quit

Don't just simply put those line in Private Sub Workbook_Open() unless you got do a correct condition checking, else you may spoil your excel file.

For safety purpose, please create a module to run it. The following are the codes that i put:

Sub testSave()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

Hope it help you solve the problem.

answered Apr 29, 2013 at 8:14

Leng Keong

1431 silver badge3 bronze badges

1 Comment

micsky Over a year ago

This works but is only useful if you do want to save the workbook. Not sure if the questioner intended to do so.

kc kalama · Accepted Answer · 2015-01-06 08:33:27Z

8

Sub TestSave()
Application.Quit
ThisWorkBook.Close SaveChanges = False
End Sub

This seems to work for me, Even though looks like am quitting app before saving, but it saves...

answered Jan 6, 2015 at 8:33

kc kalama

811 silver badge1 bronze badge

2 Comments

lolog Over a year ago

This worked for me too. However, you are missing a colon before the equal sign, like this: SaveChanges:=False

answerSeeker Over a year ago

are you sure it saves? because savechanges := false

Michael · Accepted Answer · 2010-09-02 14:47:32Z

6

Application.Quit

Should do the trick.

answered Sep 2, 2010 at 14:47

Michael

1,7082 gold badges16 silver badges21 bronze badges

Comments

ForceMagic · Accepted Answer · 2013-07-17 20:43:35Z

2

I tried a certain sequence that seems to work as you can see below:

ThisWorkbook.Saved = True
Application.Quit
Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

edited Jul 17, 2013 at 20:43

ForceMagic

6,42712 gold badges71 silver badges93 bronze badges

answered Jul 17, 2013 at 19:55

Dan

211 bronze badge

Comments

K10 · Accepted Answer · 2019-03-27 05:19:03Z

1

You can try out

ThisWorkbook.Save
ThisWorkbook.Saved = True
Application.Quit

answered Mar 27, 2019 at 5:19

K10

111 bronze badge

Comments

Panagiotis Chatzikonstantis · Accepted Answer · 2019-06-06 11:59:56Z

1

In my case, I needed to close just one excel window and not the entire application, so, I needed to tell which exact window to close, without saving it.

The following lines work just fine:

Sub test_t()
  Windows("yourfilename.xlsx").Activate
  ActiveWorkbook.Close SaveChanges:=False
End Sub

edited Jun 6, 2019 at 11:59

answered Jun 7, 2018 at 13:55

Panagiotis Chatzikonstantis

136 bronze badges

Comments

ragmaxone · Accepted Answer · 2024-11-15 13:36:24Z

0

If NeedToSave Then ThisWorkbook.Save
If Application.WorkBooks.Count = 1 Then Application.Quit
Thisworkbook.Close SaveChanges:=False

This allows to close a workbook without leaving an empty Excel instance if it's the only open workbook.

I know this post is really old and has been answered a long time ago but this problem appears to have mutated... and the best answer is not the the best one anymore.

I had the same code (first set Saved to true and then quit the application) since it's/was the most logical solution but not long ago it stopped working correctly (thank you updates!!)

It seems Application.Quit stopped taking the Saved falg into account and asks if the user wants to save the workbook no matter what you do (set Saved to true or even save the workbook!!!...).

answered Nov 15, 2024 at 13:36

ragmaxone

11 bronze badge

2 Comments

Community Over a year ago

Your answer could be improved with additional supporting information. Please edit to add further details, such as citations or documentation, so that others can confirm that your answer is correct. You can find more information on how to write good answers in the help center.

user22881734 Sep 3 at 19:03

I have had the same problem since about November 2024. Maybe an Excel update then?

LuigiEdlCarno · Accepted Answer · 2013-07-26 07:27:49Z

-3

Sub button2_click()
'
' Button2_Click Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
    ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Logout"
    ActiveSheet.Shapes("Button 2").Select
    Selection.OnAction = "Button2_Click"
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Save
    Application.Quit
End Sub

edited Jul 26, 2013 at 7:27

LuigiEdlCarno

2,4152 gold badges22 silver badges37 bronze badges

answered Jul 26, 2013 at 7:07

Menon

1

Collectives™ on Stack Overflow

Closing Excel Application using VBA

9 Answers 9

Comments

1 Comment

2 Comments

Comments

Comments

Comments

Comments

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

9 Answers 9

Comments

1 Comment

2 Comments

Comments

Comments

Comments

Comments

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related