Можно ли написать такой макрос, который бы закрывал все открытые окна

[lovko]

Друзья, могли бы вы написать такой макрос, который закрывал бы все открытые окна (файлы) Excel, кроме того окна, в котором он написан? Спасибо!

[lovko]

И все-таки...

[ambasad]

Код Выделить Развернуть

Sub CloseAll()
    Dim twb As Workbook
    Set twb = ThisWorkbook
    For Each Workbook In Workbooks
        If Workbook.Name <> twb.Name Then
            Workbook.Close
        End If
    Next
End Sub

[lovko]

Спасибо! Как бы сделать так, чтобы при этом файлы не сохранялись?

[ambasad]

пробуйте

Код Выделить Развернуть

Sub CloseAll()
    Dim twb As Workbook
    Set twb = ThisWorkbook
    For Each Workbook In Workbooks
        If Workbook.Name <> twb.Name Then
            Workbook.Close 0
        End If
    Next
End Sub

[lovko]

Спасибо! Вы мне очень помогли!