根据另一个单元格的值锁定和解锁单元格 (Excel 2013)

Question

有人可以帮助我。我一直在阅读有关VBA脚本的信息，该脚本可以根据另一个单元格的值解锁单元格，但是我似乎无法使其与电子表格甚至空白的电子表格一起使用。

这是我想做的：

i具有以下验证值(列表("是"，"否"one_answers" select"。

如果A2 ="是" - 我想看到单元格b2 =解锁;

如果a2 ="否" - 我想看到单元格=解锁；和

如果a2 =" select" - 我想看到单元格b2 =锁定。

任何输入都非常感谢。

这是代码：

If LCase(Range("A2:A10")) = "Yes" Then
    Range("B2:B10").Locked = False
ElseIf LCase(Range("A2:A10")) = "No" Then
    Range("B2:B10").Locked = False
ElseIf LCase(Range("A1:A10")) = "Select" Then
    Range("B2:B10").Locked = True
End If
End Sub

ps。我在Stackoverflow上阅读了一些评论，但该信息似乎不起作用。

https://www.teachexcel.com/excel-help/excel-how-to.php?i=302178

预先感谢大家。

Answer 1

循环通过A列中的单元格，并通过偏移对单元格进行动作。

dim rng as range
with worksheets("sheet1")
    for each rng in .range("a2:a10")
        select case lcase(rng.value2)
            case "yes", "no"
                rng.offset(0, 1).locked = false
            case "select"
                rng.offset(0, 1).locked = true
            case else
                'do nothing if not yes, no or select
        end select
    next rng
end with