Переключение заблокированных и разблокированных элементов панели инструментов в VBA

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

Когда нажимается другая кнопка, мой макрос запускает процесс, и если процесс возвращает истину, тогда другая кнопка «Заблокировано» должна быть «Разблокирована», а текстовое поле, содержащее имя, должно быть «Заблокировано», чтобы предотвратить изменение. Обработка выполняется в модуле под названием «PNC_Module2», а форма, в которой я хочу блокировать и разблокировать элементы, называется «folder_creator_window».

В настоящее время я использую следующие строки, чтобы попытаться достичь «Блокировка и разблокировка», но, похоже, ничего не делает:

    'This is supposed to unlock the create_folders_button
    folder_creator_window.create_folders_button.Locked = False  

    'This is supposed to lock the p_name_textbox textbox
    folder_creator_window.p_name_textbox.Locked = True

Я не включил остальную часть кода, так как в нем нет реального запрета на то, что здесь происходит.


person jezzipin    schedule 17.07.2012    source источник


Ответы (1)


Просмотр остальной части вашего кода может выявить проблему, поскольку ваш синтаксис выглядит нормально.

Но в ваших поисках, как и просили. Обычный метод переключения - изменить текущее состояние с помощью NOT. то есть для переключения Locked на CommandButton1 на UserForm1 вы должны использовать:

UserForm1.CommandButton1.Locked = Not UserForm1.CommandButton1.Locked
person brettdj    schedule 17.07.2012