Excel：根据下拉菜单选择激活/禁用单元格以控制用户输入

步骤1：设置基础数据与下拉菜单 #

• 先在工作表空白区域（比如A1:A3）输入设备类型选项，例如服务器、打印机、路由器
• 选中要放置下拉菜单的单元格（比如B2），通过「数据验证」设置序列，来源选择刚才的设备类型区域，完成下拉菜单配置

步骤2：编写VBA代码实现联动控制 #

1. 右键点击工作表标签（如Sheet1），选择「查看代码」打开VBA编辑器
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 指定下拉菜单所在单元格（此处为B2，需根据你的实际位置修改）
    If Target.Address = "$B$2" Then
        ' 重置所有目标单元格：锁定+填充N.A.
        Range("C2:E2").Locked = True
        Range("C2:E2").Value = "N.A."
        
        ' 根据选中的设备类型，解锁对应可编辑单元格并清空N.A.
        Select Case Target.Value
            Case "服务器"
                Range("C2:D2").Locked = False
                Range("C2:D2").Value = ""
            Case "打印机"
                Range("D2:E2").Locked = False
                Range("D2:E2").Value = ""
            Case "路由器"
                Range("C2:E2").Locked = False
                Range("C2:E2").Value = ""
        End Select
    End If
End Sub

3. 根据你的表格实际情况修改代码：把$B$2替换为你的下拉菜单单元格地址，C2:E2替换为需要控制的单元格区域，Case后的设备类型改成你实际的选项

步骤3：保护工作表让设置生效 #

• 返回Excel界面，点击「审阅」选项卡 → 「保护工作表」
• 勾选「选定未锁定的单元格」，可设置保护密码（可选），点击确定
• 现在切换下拉菜单选项，对应单元格会自动解锁允许编辑，其余单元格显示N.A.且无法编辑

额外提示 #

• WPS表格操作逻辑一致，VBA代码通用，保护工作表入口同样在「审阅」选项卡
• 首次运行需确保宏功能已启用（Excel会弹出提示，点击「启用内容」即可）
• 代码中的单元格范围必须和你的表格布局对应，否则会出现功能异常

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