If e.Row("结单3") = True Then Select Case e.Col.name Case "客户","工序","结单1","结单2" e.cancel = True End Select End If If e.Row("结单2") = True Then Select Case e.Col.name Case "客户","工序","结单1" e.cancel = True End Select End If If e.Row("结单2") = True Then Select Case e.Col.name Case "客户","工序" e.cancel = True End Select End If