Закрыть все файлы Excel,кроме текущего

[BesTiYa]

Подскажите макрос,который бы закрывал (с сохранением) все файлы приложения excel,кроме активного.
Вводила в поиске Закрыть все и закрыть файл,но ничего путного не вышло(

[SAS888]

Сначала закрываем с сохранением все файлы Excel кроме активного и файла, содержащего этот макрос. Затем закрываем с сохранением и файл с макросом. например, так:

Sub CloseFiles()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name And wb.Name <> ActiveWorkbook.Name Then wb.Close Savechanges:=True
    Next
    ThisWorkbook.Close Savechanges:=True
End Sub

[BesTiYa]

Спасибо большое! Очень полезная вещь!

[SAS888]

Я тут подумал, что если в момент выполнения макроса активной будет книга с этим кодом, то она тоже закроется. Т.е. закроются все открытые книги. Чтобы этого не произошло, нужно строку

ThisWorkbook.Close Savechanges:=True

заменить на

If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Close Savechanges:=True

[BesTiYa]

а я просто эту строчку убрала.)

[SAS888]

Т.е. Вам нужно было оставить не активную книгу, а книгу, содержащую данный код?