这个只能用VBA做一段宏代码,利用工作表保护与单元格锁定来实现。
先判断A1格内容,如果是“有”,就解锁B1格,并保护工作表;
如果A1为“无”,就锁定B1,并保护工作表。
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "是" Then
Range("b1").Locked = False '解锁
Range("b1").ActiveSheet.Protect '保护工作表
Else
Range("b1").Locked = True '锁定
Range("b1") = 0
Range("b1").ActiveSheet.Protect '保护工作表
End If
End Sub
大致上就是上面这种代码