Closing workbook

[priyatoshsarkar]

Hi,

I would like to know what will be the code for below requirement:

"Once the workbook with macro will open, all the open workbook will get colsed".

I'm trying this for a while but it's not working.

Please help.

 

[VoG]

Hi. Try this in the ThisWorkbook module

Private Sub Workbook_Open()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then wb.Close savechanges:=True
Next wb
End Sub

 

[GTO]

Presuming you mean you want to close any other workbooks that are open, maybe:

Option Explicit
    
Sub exa3()
Dim wb As Workbook
    
    For Each wb In Application.Workbooks
        If Not wb.FullName = ThisWorkbook.FullName Then
            wb.Close
        End If
    Next
End Sub

 

[priyatoshsarkar]

And if I want to close the all workbook including the macro work book, then what modification is needed to do?

 

[shg]

After the Next statement,

ThisWorkbook.Close SaveChanges:=True ' or False

 

[priyatoshsarkar]

This is working fine.

But is it possible I can open the same macro workbook once again anyhow and modify the code?

 

[shg]

Pardon?

 

[priyatoshsarkar]

Can I visit the code once again in that workbook?

 

[shg]

I don't know what you mean.

When the code running in a workbook closes the workbook it's in, the code is no longer running.

 

[priyatoshsarkar]

Thank you all.