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

К сожалению, такой команды нет в версиях 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.

Этот совет (11079) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

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