☰

使用 vba 中指定单元格的输入来锁定或解锁单元格

tag-icon • tag-icon microsoft-excel worksheet-function vba
使用 vba 中指定单元格的输入来锁定或解锁单元格

更新！

在此处输入图片描述我有一张表格，其中所有单元格均已锁定并隐藏，没有 2 个单元格。A1例如A20

现在我希望如果我在单元格中输入“Belly”，A20那么单元格A1将被解锁。同样，如果我从单元格中删除文本“Belly”，A20那么单元格A1将被锁定。

我写了这段代码：

Dim targetCell As Range
Dim inputCell As Range
Dim machine As String

Set ws = Worksheets("Sheet1")
Set targetCell = Range("A1")
Set inputCell = Range("A20")
Set machine = "Belly"

If inputCell.Value = "Belly" Then
    ws.Unprotect Password:="mehedi"
    targetCell.Locked = False
    ws.Protect Password:="mehedi"
Else
    ws.Unprotect Password:="mehedi"
    targetCell.Locked = True
    ws.Protect Password:="mehedi"

End Sub

但它不起作用并给出错误。请帮忙。

答案1

在您的代码中，您已将“machine”声明为字符串。但是，在为其分配值时，您正在使用Set。它应该是：

machine="Belly"

看Set 语句

相关内容