2012-07-17 118 views
1

我正在嘗試切換「鎖定」元素,以便在執行檢查後不再鎖定它。在該按鈕的屬性中,我已將默認值設置爲「鎖定」,以便用戶不能使用它的功能。在VBA中切換鎖定和解鎖的工具箱元素

當另一個按鈕被點擊時,我的宏運行一個進程,如果進程返回true,那麼另一個'鎖定'按鈕應該是'解鎖',並且包含名字的文本框應該'鎖定'以防止更改。處理過程在一個名爲'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 

我還沒有包括代碼的其餘部分因爲它沒有真正禁止在這裏發生的事情。

回答

1

看到你的代碼的其餘部分你的語法看起來不錯

但你的追求可能會揭示問題,要求反覆的通常方法是將反向使用NOT的當前狀態。即要在用戶窗體1上的CommandButton1上切換Locked,您可以使用:

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