VBA用户窗体：如何根据ComboBox选择控制TextBox的可编辑性？

代码放置位置 #

右键你的UserForm，选择「查看代码」，打开UserForm的代码模块，将以下代码粘贴到模块中。

核心实现代码 #

' ComboBox1选择变更时触发的事件
Private Sub ComboBox1_Change()
    ' 判断是否选择了"选项4"
    If Me.ComboBox1.Value = "选项4" Then
        ' 禁用指定的TextBox，示例为TextBox2、TextBox3
        Me.TextBox2.Enabled = False
        Me.TextBox3.Enabled = False
        ' 可选：设置灰色背景提示用户控件不可用
        Me.TextBox2.BackColor = &H8000000F
        Me.TextBox3.BackColor = &H8000000F
    Else
        ' 恢复控件可用状态
        Me.TextBox2.Enabled = True
        Me.TextBox3.Enabled = True
        ' 恢复默认白色背景
        Me.TextBox2.BackColor = &HFFFFFF
        Me.TextBox3.BackColor = &HFFFFFF
    End If
End Sub

' 可选：窗体初始化时触发，确保初始状态正确
Private Sub UserForm_Initialize()
    ' 若未手动添加ComboBox选项，可通过此处初始化
    Me.ComboBox1.AddItem "选项1"
    Me.ComboBox1.AddItem "选项2"
    Me.ComboBox1.AddItem "选项3"
    Me.ComboBox1.AddItem "选项4"
    
    ' 调用一次选择变更逻辑，保证初始状态匹配当前选项
    Call ComboBox1_Change
End Sub

关键说明 #

• 将代码中的TextBox2、TextBox3替换为你实际需要禁用的控件名称
• 若仅需禁止编辑但保留控件选中状态，可将Enabled = False替换为Locked = True
• 若ComboBox选项已通过工作表数据源或手动添加完成，可删除UserForm_Initialize中的AddItem代码段

内容的提问来源于stack exchange，提问作者Andrewalex