Если вы работаете с большим количеством открытых книг одновременно, вы знаете, что может быть сложно просмотреть и сохранить каждую из открытых книг по очереди. Разве не было бы замечательно иметь одну команду, которая позволяла бы сохранять все открытые книги без необходимости делать это вручную?

К сожалению, такой команды нет. Ближайшее решение — удерживать нажатой клавишу Shift, щелкнув меню «Файл», а затем выбрать «Закрыть все». В процессе закрытия Excel спросит, хотите ли вы сохранить каждую книгу.

Большой недостаток этого заключается в том, что Excel закрывается, и вам нужно снова запустить Excel и открыть все свои книги. Если вам нужна настоящая команда «Сохранить все», вам нужно создать ее с помощью макроса. Ниже приведен хороший пример того, что вы могли бы использовать:

Sub SaveAll()

Dim Wkb As Workbook     For Each Wkb In Workbooks         If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then             Wkb.Save         End If     Next End Sub

Сохраните макрос в своей личной книге, назначьте его кнопке на панели инструментов или сочетанию клавиш, и вы можете вызывать его так часто, как захотите. Он сохраняет все открытые книги, кроме тех, которые предназначены только для чтения или скрыты.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3307) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Saving_All_Open_Workbooks [Сохранение всех открытых книг].