根据另一个单元格的值锁定某些单元格

Question

我希望根据一行数据中下拉菜单的输入来锁定特定范围的单元格？

例如，在每一行中，第三个单元格提出一个问题 - 通过下拉列表给出“是”或“否”。如果用户选择“否”，则必须锁定剩余的三个单元格。但是，如果用户选择“是”，则剩余的单元格仍可用于输入数据。

   A         B          C            D         E         F  
| S.No   |  ID    |  Response   |  TIme  |  Value  | Expense | 
| 1      |  12345 |  NO         |  ----  |  ----   |  ----   |  (Locked Cells)
| 2      |  67y45 |  YES        |  44    |  1.68   |    1500 |  (UnLocked Cells)
| 3      |  12456 |  NO         |  ----  |  ----   |  ----   |  (Locked Cells)

就像 D2 到 F2 必须被锁定，而 D3 到 F3 应该可以进入，而 D4 到 F4 又被锁定等等，...

我尝试了以下代码，但据我观察，它没有锁定单元格或没有执行任何操作

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("C2:C160") = "YES" Then
        Range("D2:D160").Locked = False
    ElseIf Range("C2:C160") = "NO" Then
        Range("D2:D160").Locked = True
        Range("E2:E160").Locked = True
        Range("F2:F160").Locked = True
    End If
End Sub

以160为最高范围。

任何帮助都会非常有帮助，谢谢。

Answer 1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("C2:C160")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub

    Me.Unprotect Password:="password"

    If Target = "YES" Then            
        Target.Offset(0,1).Resize(1,3).Locked = False
    ElseIf Target = "NO" Then
        Target.Offset(0,1).Resize(1,3).Locked = True        
    End If

    Me.Protect Password:="password"

End Sub

这个想法是检查Target 值。改变的是细胞。因此，您可以从Intersect() 开始，它会检查更改后的单元格是否在Range("C2:C160") 中：

If Not Intersect(Target, Range("C2:C160")) Then Exit Sub

然后试试看变化的单元格是否大于1：

If Target.Cells.Count > 1 Then Exit Sub

最后，基于"YES" 和“否”，您可以提供锁定单元格。您可以考虑使用UCase()，以使您的代码也适用于“是”

If UCase(Target) = "YES" Then
...
ElseIf UCase(Target) = "NO" Then

---

关于锁定和解锁的单元格以及是否可以选择它们，请参阅这篇文章，属性解释得很好：

https://support.office.com/en-us/article/lock-or-unlock-specific-areas-of-a-protected-worksheet-75481b72-db8a-4267-8c43-042a5f2cd93a