循环遍历范围内的单元格并根据单元格的值锁定单元格

Question

好吧，假设我有一系列来自 A1:B10 的单元格。 A1 到 A10 范围内的单元格包含一个带有 2 个选项（锁定、dont_lock）的下拉列表。 B1 到 B10 范围内的单元格是允许用户输入数据的空单元格。我想要做的是根据相邻单元格中的值锁定单个单元格。所以如果单元格 A1 设置为“锁定”，那么我锁定单元格 B1。如果单元格 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

Answer 1

在 Excel 中，默认情况下单元格是锁定的。如果要解锁单元格，则必须实际指定该行为。但是，如果工作表当前不受保护，则单元格是否被锁定并不重要。因此，如果您想要锁定行为，请务必致电Sheet1.Protect。

现在，如果我正确理解您的解释，您会做得更好：

Dim rCell As Range
Dim rRng As Range

Set rRng = Sheet1.Range("A1:A10") 'Exclude B as you are only checking A.
Sheet1.Unprotect
For Each rCell In rRng.Cells
    'Avoid if else structure since locking depends on result of evaluation only.
    rcell.Offset(0,1).locked = rcell.Value = "Lock"
Next rCell
Sheet1.Protect

Answer 2

试试下面的代码。您的代码唯一的问题是缺少 rCell.value = "Lock"。您只锁定所有单元格的单元格 B1，您没有锁定相邻的所有单元格:)

** 这是一个示例代码**

Option Explicit

Sub lockNextCell()
Dim wkSheet As Worksheet
Dim rng As Range, rCell As Range

Set wkSheet = Sheets("Sheets1") '-- use your own sheet
Set rng = wkSheet.Range("A3:A12") '-- use your own range

For Each rCell In rng
    If rCell.Offset(0, 0).Value = "Lock" Then
        rCell.Offset(0, 1).Locked = True '-- here we are locking the adjacent cell
    else
        rCell.Offset(0, 1).Locked = False
    End If
Next rCell

End Sub

Daniel 谈到保护床单时请注意：

这是reference from MSDN： "如果锁定单元格并保护工作表，则不能在单元格中键入数据、修改单元格中当前的数据或更改单元格的其他属性（例如单元格格式）"