Close without saving

  • Thread starter Thread starter LoveCandle
  • Start date Start date
L

LoveCandle

Hi everybody,

I have the following code for closing the current workbook withou
saving changes >>

I want it to be developed to close all active workbooks


Code
 
Hello Love Candle,

Copy this code into a VBA module. You can call the macro anytime, and
anywhere you need in your code.


Code:
--------------------

Public Sub CloseAllWorkbooks()

Dim Wkb As Workbook

For Each Wkb In Workbooks
If Wkb.Name <> ThisWorkbook.Name Then
Wkb.Saved = True
Wkb.Close
End If
Next Wkb

With ThisWorkbook
.Saved = True
.Close
End With

End Sub
 
Thank you so much for this perfect code

But, can you develop it more to close excel program completely not only
the active workbooks windows only,
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

closing another file by code causes failure to run workbook activate event 2
Command works from debug but not normally 6
Opening a list of Excel files and run a macro in each 17
Addin not allowing thisworkbook.save in before save event 3
Macro to close without saving 5
Excel Providing user message when RED X clicked & properly closing application. 2
Close a workbook 4
Close w/o saving changes 6

Back
Top