基于另一个单元格的值locking和解锁单元格（excel 2013）

有人可以帮我吗。 我一直在阅读有关VBA脚本的知识，它允许基于另一个单元格的值来解锁单元格，但是我似乎无法使其与我的电子表格甚至空白的电子表格一起工作。

这是我想要做的：

我有单元格A1：A5，validation值如下（列表）“是”，“否”和“select”。

如果A2 =“是” – 我想看到单元格B2 =解锁;

如果A2 =“否” – 我想看到单元格B2 =解锁; 和

如果A2 =“select” – 我想看到单元格B2 =locking。

任何input，不胜感激。

这里是代码：

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列中的单元格，并通过偏移量对列B中的单元格执行操作。

 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