Excel表格保护：如何禁止在含下拉列表的单元格中输入内容？

核心需求回顾 #

你需要实现：

• F列单元格为空时，G列既不能选择下拉项，也不能手动输入任何内容（包括匹配列表的项）
• 可选需求：F列为空时，操作G列弹出错误提示

方案一：纯数据验证实现基础限制（禁止F列空时输入） #

这个方案能解决F列为空时禁止G列输入的问题，但无法完全禁止F列非空时手动输入匹配项：

1. 选中G列需要设置的单元格区域
2. 点击「数据」选项卡 → 「数据验证」
3. 在「设置」选项卡：
   • 「允许」选择「自定义」
   • 输入公式：=NOT(ISBLANK($F54))（这里的F54对应G列单元格的同行F列单元格，确保引用正确）
4. 切换到「出错警告」选项卡：
   • 「样式」选择「停止」
   • 「标题」填「输入无效」
   • 「错误信息」填「请先填写F列对应内容后再操作G列」
5. 再切换回「设置」选项卡，将「允许」改回「序列」，输入原下拉列表公式：=IF(NOT(ISBLANK($F54)),INDIRECT("FaultReason[Fault/Reason]"),"")，取消勾选「忽略空值」

这样设置后：

• F列为空时，G列任何输入（包括手动敲匹配项）都会触发错误警告，拒绝保存输入
• F列非空时，可通过下拉选择，但仍允许手动输入匹配列表的内容

方案二：VBA辅助实现完全禁止手动输入（仅允许下拉选择） #

如果要彻底禁止G列手动输入（即使内容匹配列表项），需要用VBA代码辅助：

1. 右键点击目标工作表的标签（比如「Sheet1」），选择「查看代码」
2. 在弹出的VBA编辑器中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理G列的单个单元格变更
    If Not Intersect(Target, Me.Range("G:G")) Is Nothing And Target.Cells.Count = 1 Then
        ' 检查对应F列单元格是否为空
        If IsEmpty(Me.Range("F" & Target.Row)) Then
            Target.ClearContents
            MsgBox "请先填写F列对应内容", vbCritical, "输入无效"
            Exit Sub
        End If
        
        ' 获取下拉列表数据源
        Dim dvSource As String
        On Error Resume Next
        dvSource = Target.Validation.Formula1
        On Error GoTo 0
        
        If dvSource <> "" Then
            Dim sourceRange As Range
            Set sourceRange = Range(Replace(dvSource, "=", ""))
            
            ' 检查输入内容是否来自下拉选择（手动输入的内容直接清除）
            If Application.CountIf(sourceRange, Target.Value) > 0 Then
                Target.ClearContents
                MsgBox "请通过下拉列表选择内容，禁止手动输入", vbCritical, "输入无效"
            Else
                Target.ClearContents
                MsgBox "输入内容不在可选范围内，请通过下拉选择", vbCritical, "输入无效"
            End If
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 选中G列时，根据F列状态锁定单元格
    If Not Intersect(Target, Me.Range("G:G")) Is Nothing And Target.Cells.Count = 1 Then
        Me.Protect UserInterfaceOnly:=True ' 保持工作表可编辑但锁定指定单元格
        Target.Locked = IsEmpty(Me.Range("F" & Target.Row))
    End If
End Sub

3. 保存文件为「.xlsm」格式（启用宏的工作簿）

这个方案实现：

• F列为空时，G列单元格被锁定，无法编辑，强行输入会被清除并弹出提示
• F列非空时，G列只能通过下拉选择，手动输入任何内容（包括匹配项）都会被清除并提示

可选：实现前置单元格为空时的下拉操作提示 #

在方案一的基础上，添加输入提示：

1. 打开数据验证对话框，切换到「输入信息」选项卡
2. 勾选「选定单元格时显示输入信息」
3. 「标题」填「提示」
4. 「输入信息」填「请先完成F列内容填写，再选择G列选项」

这样用户选中F列为空的G列单元格时，会自动弹出提示，提前避免误操作

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