KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как запустить макрос VBA при открытии или закрытии книги?

АвторSunДата изменения

Во многих случаях с помощью кода VBA можно выполнять операции, недоступные во встроенных функциях Excel. А пробовали ли вы когда-нибудь настроить автоматический запуск макроса VBA при каждом открытии или закрытии книги? В этой статье я покажу, как именно это сделать.

Запуск кода VBA при открытии или закрытии книги

Запуск кода VBA при открытии или закрытии книги

1. Активируйте книгу и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Дважды щелкните элемент ThisWorkbook в области Проект — VBAProject, чтобы открыть окно ThisWorkbook (Код).
Дважды щелкните ThisWorkbook, чтобы открыть пустой модуль

2. В окне кода выберите значение Workbook в левом раскрывающемся списке. Обратите внимание: по умолчанию в правом раскрывающемся списке отображается событие Open; если это не так, измените его на Open.
выберите Workbook в левом раскрывающемся списке

3. Затем скопируйте свой код, исключив первую и последнюю строки, и вставьте его между строками Private Sub Workbook_Open() и End Sub, как показано на снимке экрана ниже.
скопируйте и вставьте код в модуль

4. Затем нажмите кнопку Сохранить, чтобы сохранить код. В появившемся диалоговом окне-напоминании нажмите Нет.
нажмите кнопку Сохранить, чтобы сохранить код

5. После этого появится диалоговое окно Сохранить как, в котором необходимо сохранить файл в формате Книга Excel с поддержкой макросов и выбрать место для сохранения с помощью кнопки «Выберите папку».
сохраните файл как книгу Excel с поддержкой макросов и выберите папку для размещения файла.

6. Нажмите кнопку Сохранить. Теперь код будет выполняться каждый раз при открытии книги.

Если вы хотите, чтобы код запускался каждый раз при закрытии книги, выберите событие Deactivate в правом раскрывающемся списке окна Код, затем скопируйте нужный вам код и вставьте его между строками Private Sub Workbook_Deactivate() и End Sub.

снимок экрана kutools for excel ai

Раскройте магию Excel с помощью KUTOOLS AI

  • Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
  • Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
  • Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
  • Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Расширьте возможности Excel с помощью инструментов на базе ИИ.Скачать сейчаси ощутите эффективность, как никогда раньше!

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек