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

我正在尝试切换“locking”元素，以便在执行检查后不再locking它。 在button的属性中，我将默认值设置为“locking”，以便用户不能使用它的function。

当另一个button被点击时，我的macros运行一个进程，如果过程返回true，那么另一个“locking”button应该是“解锁”，包含名称的文本框应该被locking，以防止改变。 这个处理是在一个名为“PNC_Module2”的模块中完成的，而我希望locking和解锁元素的表单称为“folder_creator_window”。

我目前使用以下几行来尝试实现“locking和解锁”，但它似乎没有做任何事情：

'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