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

Вход

Регистрация

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

 

= Мир MS Excel/Заблокировать кнопку на момент выполнения кода - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Заблокировать кнопку на момент выполнения кода
Сергей13 Дата: Среда, 10.04.2019, 02:35 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Ребята есть ли какой способ заблокировать кнопку VBA на момент выполнения кода.
Попытка применить свойства блокировки или невидимости выполняется лишь после выполнения кода.
[vba]
Код
Private Sub CommandButton1_Click()
    FormReport.CommandButton1.Visible = False 'Применит невидимость для кнопки
    Call Код                    'Переменная кода
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте.
Ребята есть ли какой способ заблокировать кнопку VBA на момент выполнения кода.
Попытка применить свойства блокировки или невидимости выполняется лишь после выполнения кода.
[vba]
Код
Private Sub CommandButton1_Click()
    FormReport.CommandButton1.Visible = False 'Применит невидимость для кнопки
    Call Код                    'Переменная кода
End Sub
[/vba]

Автор - Сергей13
Дата добавления - 10.04.2019 в 02:35
K-SerJC Дата: Среда, 10.04.2019, 07:05 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
FormReport.CommandButton1.Enabled = False
DoEvents
Call Код
FormReport.CommandButton1.Enabled = true
[/vba]


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение[vba]
Код
FormReport.CommandButton1.Enabled = False
DoEvents
Call Код
FormReport.CommandButton1.Enabled = true
[/vba]

Автор - K-SerJC
Дата добавления - 10.04.2019 в 07:05
Сергей13 Дата: Среда, 10.04.2019, 23:58 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
K-SerJC, Спасибо!
 
Ответить
СообщениеK-SerJC, Спасибо!

Автор - Сергей13
Дата добавления - 10.04.2019 в 23:58
  • Страница 1 из 1
  • 1
Поиск:

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