Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/при открытии книги кнопка всегда ВКЛ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » при открытии книги кнопка всегда ВКЛ (Макросы/Sub)
при открытии книги кнопка всегда ВКЛ
micholap_denis Дата: Четверг, 28.04.2022, 17:09 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 272
Репутация: 0 ±
Замечаний: 40% ±

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]
К сообщению приложен файл: 111.xlsb(18.0 Kb)
 
Ответить
СообщениеКнопка включения отключения событий, иногда требуется отключить, при работе с файлом, ...как сделать что бы вне зависимости были событии отключены или включены при закрытии книги, при открытии всегда события были включены.
[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]

Автор - micholap_denis
Дата добавления - 28.04.2022 в 17:09
RAN Дата: Четверг, 28.04.2022, 17:57 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5564
Репутация: 1111 ±
Замечаний: 0% ±

2010
Цитата micholap_denis, 28.04.2022 в 17:09, в сообщении № 1 ()
событии отключены

[vba]
Код
Application.EnableEvents = False
[/vba]
Цитата micholap_denis, 28.04.2022 в 17:09, в сообщении № 1 ()
события были включены

[vba]
Код
Application.EnableEvents = True
[/vba]
А открытие и закрытие книги, это и есть события.


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 28.04.2022, 18:01
 
Ответить
Сообщение
Цитата micholap_denis, 28.04.2022 в 17:09, в сообщении № 1 ()
событии отключены

[vba]
Код
Application.EnableEvents = False
[/vba]
Цитата micholap_denis, 28.04.2022 в 17:09, в сообщении № 1 ()
события были включены

[vba]
Код
Application.EnableEvents = True
[/vba]
А открытие и закрытие книги, это и есть события.

Автор - RAN
Дата добавления - 28.04.2022 в 17:57
micholap_denis Дата: Четверг, 28.04.2022, 22:03 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 272
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
спасибо
 
Ответить
Сообщениеспасибо

Автор - micholap_denis
Дата добавления - 28.04.2022 в 22:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » при открытии книги кнопка всегда ВКЛ (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!