如何锁定命名区域内应用了可见条件格式的单元格？

看起来你需要锁定命名区域table（对应C1:E6）里那些因为同行A列输入"f"而触发了蓝色填充（颜色索引#37）的单元格对吧？刚好可以用VBA来实现这个需求，因为Excel本身没有内置的自动锁定动态条件格式单元格的功能，具体步骤如下：

一、准备VBA代码 #

首先打开VBA编辑器：按下Alt + F11，在左侧项目窗口找到你的工作簿，右键插入一个模块，然后把下面的代码粘贴进去：

Sub LockConditionalFormatCells()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    Dim targetColorIndex As Long
    
    ' 替换成你的工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 指向命名区域table
    Set targetRange = ws.Range("table")
    ' 目标条件格式的填充颜色索引
    targetColorIndex = 37
    
    ' 先解锁目标区域所有单元格，避免重复锁定导致的问题
    targetRange.Locked = False
    
    ' 遍历每个单元格，检查是否符合条件
    For Each cell In targetRange
        ' 双重验证：当前显示的填充颜色是目标索引，且同行A列是"f"
        If cell.DisplayFormat.Interior.ColorIndex = targetColorIndex And _
           ws.Cells(cell.Row, "A").Value = "f" Then
            ' 锁定该单元格
            cell.Locked = True
        End If
    Next cell
    
    ' 可选：保护工作表让锁定生效，密码可自定义或删除
    ' ws.Protect Password:="yourpass", UserInterfaceOnly:=True
    MsgBox "符合条件的单元格已锁定！", vbInformation
End Sub

二、代码关键说明 #

• 用DisplayFormat.Interior.ColorIndex而不是直接读Interior.ColorIndex：因为条件格式是动态应用的，只有DisplayFormat能获取到单元格当前实际显示的格式
• 双重验证：既检查显示颜色，又验证A列的值，避免其他条件格式触发的同颜色填充被误锁定
• 先解锁所有目标单元格：防止重复运行宏时，已经锁定的单元格无法被正确更新

三、设置自动触发（可选） #

如果想要在A列输入"f"或修改内容时自动执行锁定操作，可以添加工作表的Change事件：

1. 在VBA编辑器左侧找到你的目标工作表（比如Sheet1），双击打开它的代码窗口
2. 粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当A列的单元格内容改变时触发
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        Call LockConditionalFormatCells
    End If
End Sub

这样每次A列的内容变化，都会自动检测并锁定/解锁对应的单元格。

四、注意事项 #

• 确认颜色索引：如果不确定你的条件格式颜色索引是不是37，可以在VBA编辑器的立即窗口输入?Range("C1").DisplayFormat.Interior.ColorIndex（先让C1触发条件格式），按回车就能看到数值
• 工作表保护：如果你的工作表已经被保护，要么先解除保护再运行宏，要么在保护时加上UserInterfaceOnly:=True参数，这样宏可以修改锁定状态而不需要临时解除保护

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