标题：单元格解锁

If Forms ("生产管理").opened Then '
    If Forms ("生产管理").controls("CheckBox7").checked = False Then '如果复选框未选中
        If e.Col.Name = "进度" AndAlso e.Row("进度") = "任务取消" Then
            e.Cancel = True '单元格锁定
        End If
    End If
End If

当复选框处于选中状态时，单元格还是不能被编辑。