A1:B10 の範囲のセルがあるとします。A1 から A10 の範囲のセルには、2 つのオプション (lock、dont_lock) を持つドロップダウン リストが含まれています。B1 から B10 の範囲のセルは、ユーザーがデータを入力できる空のセルです。私がやりたいことは、隣接するセルの値に基づいて個々のセルをロックすることです。したがって、セルA1が「ロック」に設定されている場合、セルB1をロックします。IF セル A2 が「dont_lock」に設定されている場合、B2 はロックされません。以下のコードに示す for ループを使用しようとしましたが、機能しません。誰でも助けることができますか?
Dim rCell As Range
Dim rRng As Range
Set rRng = Sheet1.Range("A1:B10")
For Each rCell In rRng.Cells
If rCell = "Lock" Then
Range("B1").Locked = True
End If
Next rCell