锁定工作表中的所有单元格Excel VBA

Question

我有一个excel工作表，其中有很多字段用于输入数据。让我们假设总共有20个字段。默认情况下，每当用户打开工作簿。现在，其中一个字段要求用户输入密码。如果密码是“AAA”，那么五个字段（十个被锁定的字段）将被解锁并且可以被编辑。如果用户输入密码为“BBB”，则工作表的所有单元格将为只读并锁定，以防止编辑。 我专注于用户输入“BBB”的情况。我想这个代码，但没有奏效：

if Range("Password").value="BBB" then 
cells.select 
selection.locked=true 
end if 

它给了我一个错误“溢出” 请帮助。

Answer 1

If Range("Password").Value = "BBB" Then 
    ActiveSheet.UsedRange.Locked = True 
End If