при открытии книги кнопка всегда ВКЛ

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

при открытии книги кнопка всегда ВКЛ (Макросы/Sub)

micholap_denis

Дата: Четверг, 28.04.2022, 17:09 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Кнопка включения отключения событий, иногда требуется отключить, при работе с файлом, ...как сделать что бы вне зависимости были событии отключены или включены при закрытии книги, при открытии всегда события были включены.
[vba]

Код

Sub События()
     If Sheets("Таблица").DrawingObjects("Выключить события").Characters.Text = "ВЫКЛ события" Then
         Sheets("Таблица").DrawingObjects("Выключить события").Characters.Text = "ВКЛ события"
          Sheets("Таблица").DrawingObjects("Выключить события").Font.ColorIndex = 5
Application.EnableEvents = Not Application.EnableEvents
MsgBox Application.EnableEvents
     Else
           Sheets("Таблица").DrawingObjects("Выключить события").Characters.Text = "ВЫКЛ события"
          Sheets("Таблица").DrawingObjects("Выключить события").Font.ColorIndex = 3
Application.EnableEvents = True
MsgBox Application.EnableEvents
     End If
End Sub

[/vba]