Что делает макрос: Данный макрос позволяет закрыть все открытые рабочие книги одновременно.
Как макрос работает
В этом макросе, коллекция Workbooks перебирает все открытые рабочие книги. По мере того, как макрос проходит через каждую книгу, он сохраняет и закрывает их.
Код макроса
Sub ZakritVseKnigi() 'Шаг 1: Объявляем переменные Dim wb As Workbook 'Шаг 2: Перебираем все открытые книги For Each wb In Workbooks 'Шаг 3: Закрываем wb.Close 'Шаг 4: Сохраняем изменения SaveChanges:=True Next wb End Sub
Как работает этот код
- Объявляем переменную, которая представляет собой объект книга. Это позволит перебирать все открытые книги.
- С помощью цикла просто проходит через все открытые книги.
- Закрываем книгу (Excel затем выдаст сообщение с предложением сохранить изменения).
- Сохраняем изменения. Если Вы не хотите, чтобы их сохраняли, нужно изменить аргумент Savechanges значение с True на false.
Как использовать
Лучшее место, чтобы сохранить этот макрос — это ваша книга личных макросов. Таким образом, макрос всегда будет доступен для вас. Книга личных макросов загружается при запуске Excel. В окне VBE проекта, он назван personal.xlsb.
- Активируйте редактор Visual Basic, нажав ALT + F11 на клавиатуре.
- Щелкните правой кнопкой мыши personal.xlb в окне Project.
- Выберите Insert➜Module.
- Введите или вставьте код во вновь созданном модуле.
Если вы не видите personal.xlb в окне проекта, он еще не существует. Вы должны записать макрос, используя книгу личных макросов в качестве конечного пункта.
Чтобы записать макрос в личной книге макросов, выберите пункт: Личная книга макросов в диалоговом окне записи макроса перед началом записи. Просто записать пару кликов, а затем остановить запись. Вы можете сбросить записанный макрос и заменить его с этим.
