Excel vba auto open

Do you need to run a macro when Excel starts? You have two options:

1. Create a Workbook_Open() sub within ‘ThisWorkbook’.

2. Place a Auto_Open() sub within any module.

Workbook_Open Event

Create a sub titled ‘Workbook_Open’ within ‘ThisWorkbook’

Workbook_open ()
    MsgBox "This code ran at Excel start!"
End Sub

Auto_Open

Using the second method: Simply create a subroutine called Auto_Open and place code in it, or call another sub from there. Automatically your code runs when Excel starts.

Private Sub Auto_Open()
    MsgBox "This code ran at Excel start!"
End Sub

Create and Name New Worksheet Everytime Excel Opens

The following code works opening a workbook. It automatically adds a new sheet and labels it with the date. It also checks to see that the sheet doesn’t already exist – to allow for the possibility of it being opened more than once a day.

This code makes use of the Workbook Open Event and must be placed in the workbook module under the “Open work Book” event. The function Sheet_Exist must be placed in a module and this checks whether or not the sheet exists:

Private Sub Workbook_Open()

Dim New_Sheet_Name As String

New_Sheet_Name = Format(Now(), "dd-mm-yy")

If Sheet_Exists(New_Sheet_Name) = False Then
    With Workbook
        Worksheets.Add().Name = New_Sheet_Name
    End With
End If

Save

End Sub

Function Sheet_Exists(WorkSheet_Name As String) As Boolean

Dim Work_sheet As Worksheet

Sheet_Exists = False

For Each Work_sheet In ThisWorkbook.Worksheets
      If Work_sheet.Name = WorkSheet_Name Then
        Sheet_Exists = True
    End If
   Next

End Function

To download the .XLSM file for this tutorial, click here

Set the Default Sheet When Workbook Opens

Do you want to make sure a sheet always shows first when a workbook opens? For instance when you open a workbook sheet3 is always the active sheet. Here’s how.

You can refer to a sheet from VBA by it’s program name (ie Sheet3) or by it’s tab name(ie JanData). It is best to use the program name, becuase if the tab name changes, your VBA code that refers to a tab name will no longer work. However if you use the program name a user can change the tab name multiple times and your macro still works.

To make sure a certain sheet is always activated when a workbook opens, just place sheet.activate code in the workbook_open sub. This is an example that activates sheet3 by using the program name everytime a workbook opens.

Private Sub Workbook_Open()
Sheet3.Activate
End Sub

And this does it by using the tab name:

Private Sub Workbook_Open()

Sheets("mytabname").Activate
End Sub

Sidenote: You must save and restart excel for this to work.
Sidenote: This only works if macros are enabled.
Sidenote: Put this code in the code window for the ThisWorkbook object in the VBE.

Load Form Every Time Workbook Opens

If you would like to load a form or run some VBA code when you open an excel workbook, place your code in the Thisworkbook code window and in the Workbook_Open sub.

From your spreadsheet:
1. Press ALT and F11 to open the VB editor
2. Double-click the word ThisWorkbook to open the code window
3. Type the following code in the ThisWorkbook code window

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Sidenote: Replace Userform1 with your form name

4. Close Excel and re-open.

<<Return to VBA Examples

Вы можете записать макрос и сохранить его с именем Auto_Open, чтобы запускать его всякий раз, когда открываете книгу, в которой содержится этот макрос.

Вы также можете написать код VBA для той же цели с помощью события Open рабочей книги. Событие Open запускает код в подпроцедуре Workbook_Open () каждый раз, когда вы открываете книгу.

Запись макроса Auto_Open

Вы можете записать макрос Auto_Run следующим образом –

• Нажмите вкладку VIEW на ленте.
• Нажмите Макросы.
• Нажмите Запись макроса. Откроется диалоговое окно «Запись макроса».
• Введите Auto_Run в качестве имени макроса.
• Введите описание и нажмите ОК.

• Начните запись макроса.
• Остановить запись.
• Сохранить рабочую книгу как макрокоманду.
• Закройте рабочую книгу.
• Откройте рабочую книгу. Макрос Auto_Run запустится автоматически.

Если вы хотите, чтобы Excel запускался без запуска макроса Auto_Open, удерживайте клавишу SHIFT при запуске Excel.

Ограничения Auto_Open Macro

Ниже приведены ограничения макроса Auto_Open:

• Если рабочая книга, в которой вы сохранили макрос Auto_Open, содержит код для события Open книги, код события Open переопределит действия в макросе Auto_Open.

• Макрос Auto_Open игнорируется, когда книга открывается при запуске кода, использующего метод Open.

• Макрос Auto_Open запускается до открытия любых других книг. Следовательно, если вы записываете действия, которые вы хотите, чтобы Excel выполнял в книге Book1 по умолчанию или в книге, загруженной из папки XLStart, макрос Auto_Open завершится ошибкой при перезапуске Excel, поскольку макрос запускается до открытия книг по умолчанию и запуска книг. ,

Если рабочая книга, в которой вы сохранили макрос Auto_Open, содержит код для события Open книги, код события Open переопределит действия в макросе Auto_Open.

Макрос Auto_Open игнорируется, когда книга открывается при запуске кода, использующего метод Open.

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

Если вы столкнулись с каким-либо из этих ограничений, вместо записи макроса Auto_Open необходимо написать код для события Open, как описано в следующем разделе.

Код VBA для открытого события рабочей книги

Вы можете написать код, который будет выполняться при открытии книги. VBA предоставляет вам событие open, которое включает в себя процедуру VBA для действий, которые необходимо выполнить при открытии рабочей книги.

Откройте книгу, в которой вы сохранили макрос, который вы написали для абсолютных ссылок – Report_ProjectXYZ. Когда этот макрос выполняется, новый лист будет добавлен в рабочую книгу, а структура отчета проекта появится на новом листе.

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

Следуйте приведенной ниже процедуре в редакторе VBA.

• Дважды щелкните ThisWorkbook в Projects Explorer.

• В окне кода выберите Workbook в левом раскрывающемся списке и Open в правом раскрывающемся списке. Sub Workbook_Open () появляется.

Дважды щелкните ThisWorkbook в Projects Explorer.

В окне кода выберите Workbook в левом раскрывающемся списке и Open в правом раскрывающемся списке. Sub Workbook_Open () появляется.

• Нажмите Модули в проводнике проектов.

• Дважды щелкните по имени модуля, содержащего код макроса.

• Скопируйте код макроса из модуля и вставьте его в Sub WorkBook_Open ().

Нажмите Модули в проводнике проектов.

Дважды щелкните по имени модуля, содержащего код макроса.

Скопируйте код макроса из модуля и вставьте его в Sub WorkBook_Open ().

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

24-й час. Выполнение процедур

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

В этом часе будут рассмотрены следующие вопросы.

• Использование процедур Auto_Open и Auto_Close.
• Процедуры, выполняемые при наступлении определенных событий.
• Создание надстроек Excel.

Автоматическое выполнение процедур

Часто возникают ситуации, когда какие-либо процедуры необходимо выполнить при открытии или закрытии рабочих книг. Excel предлагает простой способ выполнения таких процедур. Если, например, процедура должна выполняться при открытии книги, то просто назовите ее Auto_Open.

Процедуру Auto_Open можно использовать для решения следующих задач:

• инициализация значений переменных;
• добавление пользовательских меню и панелей инструментов;
• ввод (инициализация) данных в рабочий лист;
• отображение начального окна (окна приглашения) приложения;
• изменение установок приложения (таких как отображение сетки рабочего листа или формат вывода нулевых значений);
• вставка рабочих листов;
• выполнение форматирования;
• удаление ненужных данных из рабочего листа.

Процедура, выполняемая при закрытии рабочей книги, называется Auto_Close. Вот типичные задачи, выполняемые этой процедурой:

• удаление ненужных рабочих листов;
• сохранение рабочей книги под другим именем в качестве резервной копии;
• возвращение стандартных установок окна приложения (восстановление меню и панелей инструментов, отображение сетки рабочего листа и т.п.).

Можно использовать обе или только одну из этих процедур.

Имена этих процедур не чувствительны к применяемому регистру, т.е. их можно писать как строчными, так и прописными буквами.

Если рабочая книга открывается из процедуры VBA, то процедуры Auto не выполняются. В этом случае для выполнения этих процедур используется метод RunAutoMacros.

Приведем примеры процедур Auto_Open и Auto_Close. Откройте новую рабочую книгу, вставьте модуль и в этом модуле создайте процедуру Auto_Open, код которой показан в листинге 24.1.

Листинг 24.1. Пример процедуры Auto Open

1: Sub Auto_Open()

2: Range(«A1»).Value = «Текущая дата:»

4: Range(«B1»).FormulaR1C1 = «=NOW()»

7: With ActiveWindow

8: .DisplayHorizontalScrollBar = False

9: .DisplayVerticalScrollBar = False

11: With Application

12: .DisplayFormulaBar = False

13: .DisplayStatusBar = False

Эта процедура вводит в рабочий лист текущую дату и время и удаляет из окна Excel полосы прокрутки, строку формул и строку состояния. Если надо восстановить внешний вид окна Excel после закрытия этой рабочей книги, создайте еще процедуру Auto_Close, код которой приведен в листинге 24.2.

Листинг 24.2. Пример процедуры Auto Close

1: Sub Auto_Close()

3: With ActiveWindow

4: .DisplayHorizontalScrollBar = True

5: .DisplayVerticalScrollBar = True

7: With Application

8: .DisplayFormulaBar = True

9: .DisplayStatusBar = True

Сохраните эту рабочую книгу пол именем Час24. Для тестирования процедур закройте рабочую книгу, а затем откройте ее снова. Вы увидите текущую дату в ячейке В1, а также заметите отсутствие полос прокрутки, строки формул и строки состояния (рис. 24.1). Закройте эту рабочую книгу и откройте новую, чтобы убедиться в том, что привычный вид окна Excel восстановлен.

Рис. 24.1. Процедуры, выполняемые при открытии рабочих книг, полезны для настройки среды Excel

Процедуры, выполняемые при наступлении событий

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

• OnAction — выполняется, если указанный объект становится активным, например на нем щелкнули кнопкой мыши.
• OnCalculate — выполняется после пересчета рабочего листа.
• OnData — выполняется, когда получены данные из приложения, отличного от Excel.
• OnDoubleСlick — выполняется, если на указанном объекте дважды щелкнули кнопкой мыши.
• OnEntry — выполняется, когда пользователь нажал клавишу (или переместил табличный курсор в другую ячейку) после ввода данных в ячейку.
• OnKey — выполняется, если нажата указанная комбинация клавиш.
• OnRepeat — выполняется, если возвращена отмененная команда.
• OnSheetActivate — выполняется, когда делается активным (текущим) указанный рабочий лист.
• OnSheetDeactivate — выполняется, если пользователь переходит из указанного рабочего листа в любой другой.
• OnTime — выполняется в указанное время, если в это время загружена программа Excel и открыта книга, содержащая процедуру OnTime.
• OnUndo — выполняется при отмене ранее выполненной команды.
• OnWindow — выполняется, когда пользователь переключается в указанное окно либо когда активизируется или открывается окно приложения Excel.

Многие из приведенных здесь событий в справочной системе VBA помечены как hidden (скрытый). Это указывает на то, что они не отображены в окне просмотра объектов, но не означает, что они не доступны и их нельзя использовать.

Обычно Оn-свойства объектов устанавливаются в процедуре Auto_Open рабочей книги. Например, можно предусмотреть сохранение рабочей книги при наступлении события OnData либо проверить корректность введенных данных после события OnEntry. Продемонстрируем на небольшом примере, как «‘работают» события.

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

1. Создайте новую процедуру с именем попытка со строкой кода

MsgBox «Вы вернулись в Лист1!»

1. Сохраните рабочую книгу под именем Событие и закройте ее.
2. Откройте рабочую книгу Событие и перейдите в рабочий лист Лист2.
3. Теперь перейдите в Лист1 — отобразится окно сообщения.
4. Щелкните на кнопке ОК для закрытия окна сообщения.

Для следующего примера в процедуру Auto_Open введите строку кода

Теперь создайте процедуру ПроверкаА1, код которой приведен в листинге 24.3.

Листинг 24.3. Процедура ПроверкаА1

1: Sub ПроверкаА1()

2: If Range(«A1»).Value

3: MsgBox «Значение должно быть не меньше 5»

Перейдите в Лист1 и выберите ячейку А1. Введите число 4 и нажмите . Появится окно с сообщением, что число должно быть не меньше 5. Щелкните на кнопке ОК для закрытия окна сообщения.

Создание надстроек Excel

В этом часе вы уже познакомились с двумя способами автоматического выполнения процедур (при открытии или закрытии рабочих книг и в ответ на наступление определенных событий). Но предположим, что необходима автоматическая загрузка определенных процедур при открытии самой программы Excel. Перечисленные выше способы автоматического выполнения процедур в этом случае не подходят. Выход есть и в данной ситуации: надо создать необходимые процедуры и сохранить рабочую книгу их содержащую, как надстройку. Рабочая книга-надстройка содержит информацию, созданную пользователем, например специальную структуру и оформление рабочего листа или процедуры. Книгу-надстройку нельзя отрыть (как обычную рабочую книгу) и изменить, но она может содержать средства настройки, которыми пользователь может управлять. Обычно надстройки содержат следующее:

• функции, созданные пользователем;
• пользовательские диалоговые окна;
• пользовательские меню;
• пользовательские панели инструментов.

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

1. Откройте новую рабочую книгу и создайте функцию Комиссионные.
2. Введите код этой функции

Function Комиссионные(х As Variant)

Комиссионные = х * 0.3

1. Сохраните рабочую книгу под именем МояФункция.
2. Выполните команду Файл > Сохранить как. В диалоговом окне Сохранение документа в раскрывающемся списке Тип файла выберите Надстройка Microsoft Excel. Автоматически откроется папка Addins. Щелкните на кнопке Сохранить для создания новой надстройки.
3. Закройте все открытые рабочие книги.
4. Откройте новую рабочую книгу.
5. Выполните команду Сервис > Надстройки, откроется диалоговое окно Надстройки.
6. Щелкните на кнопке Обзор. В открывшемся диалоговом окне Обзор, отображающем содержимое папки Addins, выберите файл МояФункция и щелкните на кнопке ОК. Щелкните на кнопке ОК в диалоговом окне Надстройки.
7. Если вы сейчас откроете меню Окно, то увидите, что открыта только одна(текущая) рабочая книга.
8. В ячейку А1 введите число 100. В ячейку В1 введите формулу =комиссионные(А1) и нажмите клавишу . Комиссионные будут вычислены.

Надеюсь, этот маленький пример ясно показал основную идею создания и использования надстроек.

Резюме

В этом часе вы получили тот уровень знаний о VBA, который необходим для автоматизации выполнения процедур. Вы узнали, что процедура Auto_Open автоматически выполняется при открытии рабочей книги, a Auto_Close — при закрытии. Вы также познакомились с процедурами, выполняемыми при наступлении определенных событий. Наконец, вы узнали, что такое надстройки Excel, как их создавать и использовать.

Вопросы и ответы

Вопрос. Можно ли процедуру, выполняемую при открытии рабочей книги, назвать не Auto_Open, а другим именем?

Ответ. Нет, в данном случае имя процедуры «работает» как спусковой крючок для автоматического выполнения процедуры.

Вопрос. Как сделать, чтобы процедура, сохраненная в книге-надстройке, была доступна всегда?

Ответ. Сохраните ее в личной книге макросов.

Практикум

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

Тесты

1. Если необходимо выполнение определенной процедуры при импортировании данных с помощью MS Query, какое событие необходимо использовать?
2. Истинно или ложно следующее утверждение: в рабочей книге может быть несколько процедур Auto_Open?
3. Назовите не менее двух свойств событий, которые можно назначить для выполнения процедур проверки корректности вводимых данных.
4. Истинно или ложно следующее утверждение: вы должны при использовании надстройки каждый раз загружать ее вручную?
5. Предположим, что при закрытии рабочей книги необходимо сохранить внешний файл Word. Как это сделать?
6. Сформулируйте задачи, которые могут выполнять надстройки.

Упражнение

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

• ввести текст Дата:, Имя:, Организация: в ячейки A1, A2 и A3 соответственно;
• с помощью функции Now в ячейку В1 отобразить системное время компьютера;
• использовать свойство UserName объекта Application для вставки имени пользователя в ячейку В2;
• использовать свойство OrganizationName объекта Application для вставки названия организации в ячейку B3;
• подогнать размеры столбцов А и В так, чтобы они полностью отображали введенные данные.

Источник

How to disable Workbook_Open and Auto_Open in Excel

Workbook_Open and Auto_Open are two predefined events for Excel VBA. Both events allow you to run a macro right after the workbook is loaded. You may want to open the workbook without triggering anything in some cases — either to skip a certain code block for security reasons, or for programming purposes. This article will show you how to disable Workbook_Open and Auto_Open in Excel.

• Workbook_Open should be in ThisWorkbookAuto_Open can be in any module.
• Excel triggers Workbook_Open before Auto_Open.

Let’s now take a closer look into how to disable Workbook_Open and Auto_Open:

Opening a workbook manually

You can use the following two approaches if you need to open a workbook manually.

Holding the Shift Key when opening

We’ll start with an easy approach to disable Workbook_Open and Auto_Open. If you hold down the Shift key when opening the file, the macros will not run. Beware that you should be in Excel’s Open window to make this work. This method doesn’t work when you open a file directly from your desktop or from the Windows Explorer. So,

1. Start with opening Excel (only Excel, not the workbook)
2. Activate the Open section — if you’re not on that page already
3. Hold Shift Key
4. Click on the file
5. Release the Shift Key after the workbook is opened

Disabling all macros

An obvious way is to disable all macros using Excel Options. However, this method is the slowest approach so you may not want to turn on and off macros all the time.

Follow the steps below for disabling macros:

1. Click the File >Options.
2. Click Trust Center, and then click Trust Center Settings.
3. In the Trust Center, click Macro Settings.
4. Select either Disable all macros without notification or Disable all macros with notification
5. Click OK to apply the setting.

Opening a workbook from VBA

What if you need to open an Excel workbook with your VBA code? Disabling macros from Excel Options still works. Here is what you can do to disable Workbook_Open and Auto_Open when opening a workbook from a macro.

Disabling Events

Events are built in actions VBA which are executed automatically. Workbook_Open and Auto_Open are examples for two such events. As a result, disabling events can help you skip the Workbook_Open and Auto_Open events.

You can enable or disable events by assigning a Boolean value to the Application.EnableEvents.

Macro Security Settings in VBA

The final approach is similar to the Disabling all macros method. However, this time we will show you how you can change the setting in a macro. You can change the Application.AutomationSecurity property’s value to mimic the setting in Excel Options.

The property can take three values:

• msoAutomationSecurityByUI. Uses the security setting specified in the Security dialog box.
• msoAutomationSecurityForceDisable. Disables all macros in all files opened programmatically without showing any security alerts.
• msoAutomationSecurityLow. Enables all macros. This is the default value when the application is started.

You want to use msoAutomationSecurityForceDisable to disable.

Источник