在VBA中切换锁定和解锁的工具箱元素

Question

我正在尝试切换'已锁定'元素，以便在执行检查后不再锁定它。在按钮的属性中，我将默认值设置为“已锁定”，以便用户无法使用它的功能。

当点击另一个按钮时，我的宏运行一个进程，如果进程返回true，则另一个'Locked'按钮应为'Unlocked'，并且包含名称的文本框应为'Locked'以防止更改。处理在名为“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

我没有包含其余的代码，因为它没有真正关注这里发生的事情。

Answer 1

看到其余代码可能会显示问题，因为您的语法看起来不错

但是按照要求进行查询正常的切换方法是使用NOT来反转当前条件。即，在UserForm1上的CommandButton1上切换Locked，您将使用：

UserForm1.CommandButton1.Locked = Not UserForm1.CommandButton1.Locked