Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("a1:b1"), Target) Is Nothing And Range("a1") = "否" Then '如果编辑了A1或B1,且A1为否,则执行下面的语句 Application.EnableEvents = False Range("B1") = "禁止编辑" Application.EnableEvents = True End If End Sub