Запуск vba при запуске excel

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

1. Откройте вкладку Разработчик и щелкните элемент Visual Basic.

   

2. В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook. Если вы не видите обозреватель Project, перейдите в > Project проводникаили нажмите CTRL+R.

   

3. В окне модуля, которое открывается справа, вставьте следующий код:

   Private Sub Workbook_Open()
   
   ' Put your code here
   
   End Sub

4. В конце и подмножите записи в процедуру Sub.

   Закройте редактор Visual Basic (вам не нужно ничего сохранять).

5. Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Для этого:

1. В меню выберите пункт Параметры Excel >… >ленты & панели инструментов.

2. В категории Настройка ленты в списке Основные вкладки выберите вариант Разработчик.

3. Нажмите кнопку Сохранить.

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

1. Откройте вкладку Разработчик и щелкните элемент Visual Basic.

2. В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook.

3. В окне модуля, которое открывается справа, вставьте следующий код:

   Private Sub Workbook_Open()
   
   ' Put your code here
   
   End Sub

4. В конце и подмножите записи в процедуру Sub.

   Закройте редактор Visual Basic (вам не нужно ничего сохранять).

5. Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Добавлю к ответу igumnov.

Код необходимо вставить в модуль ЭтаКнига (Для Word — ThisDocument)

Alt+F11 — открываем проект VBA.
Слева — окно проекта, модуль находится там, в папке Microsoft Excel Objects

Исполняемый макрос записывается в общий модуль (в папке Modules).

Если модуля нет, его нужно создать: в редакторе VBA вкладка Insert-Module

Если окна проекта нет, открыть — меню Viev-Project Explorer (Ctrl+R)

Если макросы запрещены, никакими внутренними встроенными средствами поменять уровень безопасности нельзя. В VBA тоже нет такой команды. Это противоречило бы логике защиты: запрещаем макросы, но тем же макросом их разрешаем.

Поменять уровень безопасности вручную:

Для Excel-2003: меню Сервис-Макрос-Безопасность

Для Excel-2010 глубже: закладка ленты Файл-Параметры-Центр_управления_безопасностью-Параметры_центра_управления_безопасностью-Параметры_макросов

Программно менять уровень безопасности можно, но перед этим нужно установить на компьютер скрипт, который «умеет» менять уровень безопасности. Такие программы есть в свободном доступе.

Вам нужно запускать макрос при запуске Excel? У вас есть два варианта:

1. Создайте вложенную книгу Workbook_Open () в «ThisWorkbook».

2. Поместите подпрограмму Auto_Open () в любой модуль.

Workbook_Open Событие

Создайте подзаголовок «Workbook_Open» в «ThisWorkbook»

Auto_Open

Используя второй метод: просто создайте подпрограмму Auto_Open и поместите в нее код или вызовите оттуда другую подпрограмму. Ваш код запускается автоматически при запуске Excel.

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

Этот код использует событие открытия рабочей книги и должен быть помещен в модуль книги под событием «Открыть рабочую книгу». Функция Sheet_Exist должна быть помещена в модуль, и она проверяет, существует ли лист:

Чтобы загрузить файл .XLSM для этого руководства, щелкните здесь

Установить лист по умолчанию при открытии книги

Вы хотите, чтобы лист всегда показывался первым при открытии книги? Например, когда вы открываете книгу, лист 3 всегда является активным. Вот как.

Вы можете ссылаться на лист из VBA по имени программы (например, Sheet3) или по имени вкладки (например, JanData). Лучше использовать имя программы, потому что, если имя вкладки изменится, ваш код VBA, который ссылается на имя вкладки, больше не будет работать. Однако, если вы используете имя программы, пользователь может изменить имя вкладки несколько раз, и ваш макрос по-прежнему будет работать.

Чтобы убедиться, что определенный лист всегда активирован при открытии книги, просто поместите код sheet.activate в подпрограмму workbook_open. Это пример, который активирует Sheet3, используя имя программы каждый раз, когда открывается книга.

И это делается с помощью имени вкладки:

Примечание: вы должны сохранить и перезапустить Excel, чтобы это работало.
Примечание: это работает, только если включены макросы.
Примечание: поместите этот код в окно кода для объекта ThisWorkbook в VBE.

Загружать форму при каждом открытии книги

Если вы хотите загрузить форму или запустить код VBA при открытии книги Excel, поместите свой код в окно кода этой книги и в подпрограмму Workbook_Open.

Из вашей таблицы:
1. Нажмите ALT и F11, чтобы открыть редактор VB.
2. Дважды щелкните слово ThisWorkbook, чтобы открыть окно кода.
3. Введите следующий код в окно кода ThisWorkbook.

Примечание: замените Userform1 именем вашей формы

4. Закройте Excel и снова откройте.

Вы поможете развитию сайта, поделившись страницей с друзьями

Добрый день!

Уже прочитал кучу инфы по поводу автоматического запуска, но что то все не хочет взлетать. Задача какая, есть скрипт, к примеру, который делает определенные модификации с листом к примеру вот:

1
2
3
4
5
6

sub test()
    Range("A1:T10000").Select 'Выбираем лист
    Selection.UnMerge 'Делаем unmerge
    Range("C:C,D:D,I:I,K:K,L:L,N:N,O:O,P:P,R:R,T:T,G:G").Select 'выбираем ненужные колонки
    Selection.Delete Shift:=xlToLeft 'Удаляем колонки
end sub

Он должен выполняться при запуске любого файла Excel.

Что пробовал:
1. В книге PERSONAL.XLSB, модуль Thisworkbook создать

1
2
3

Private Sub Workbook_Open()
Call Test
End Sub

В результате при открытии любого файла Excel, я как понял, сначала открывается книга (но не лист), потом запускается макрос, так как лист не открылся — выдается ошибка(скриншот 1 и 2), потому что не к чему применять команды.
Ссылки удалены, читайте правила и это

2. Тоже самое происходит и с Auto_open

Подскажите может я что то не так делаю? Как можно сделать так чтобы скрипт обрабатывал любые Excel файлы при открытии?