根据条件格式设置颜色锁定单元格-Excel VBA

Question

我一直在尝试根据单元格的颜色将单元格锁定在excel中。单元格具有一个列表，并且在每个特定单元格中选择一个选项时，通过CF与该单元格相关的其他单元格会变成灰色。我想出了下面的代码，但是这会锁定所有单元格。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range


ActiveSheet.Unprotect

   For Each cl In Target

       If cl.DisplayFormat.Interior.Color = 8421504 Then

       cl.Locked = True


       End If

   Next cl

ActiveSheet.Protect

End Sub 

欢迎提出任何建议。谢谢