有网友碰到这样的问题“excel中使用vba如何能够实现如果我这个单元格里的内容是1则另一个单元格锁定，不允许修改，”。小编为您整理了以下解决方案，希望对您有帮助：

解决方案1：

假定A1单元为1，B1锁定，A1变为2时解锁。以下代码能满足你的要求：

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   ActiveSheet.Unprotect
   If Target = 1 Then Range("B1").Locked = True
   If Target = 2 Then Range("B1").Locked = False
   ActiveSheet.Protect
End Sub

注意两点：一是代码不能写在模块里，就写在工作表代码区，二是在写代码前先将所有单元格解锁：

解决方案2：

这个要代码的事件才能完成。工作表保护，可设密码，不过容易破解。

解决方案3：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If Target = 1 Then
        ActiveSheet.Unprotect
        [a2].Locked = True
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        [a2].Locked = False
        ActiveSheet.Protect
    End If
End Sub

如果a1=1则锁定a2