主题：[求助]排除列后，锁定行

表的PrepareEdit代码，不起作用，请老师看看错在哪里？谢谢！

If e.Row("审核") = True Then     ’如果逻辑列“审核”勾选了，其他列锁定，但“审核”列不锁定
    For Each c As Col In Tables("数据表").cols
        If c.name <> "审核" Then
            e.Cancel = True
        Else
            e.Cancel = False
        End If
    Next
End If

谢谢大侠！可以了

For Each c As Col In Tables("数据表").cols
    If e.Row("审核") = True Then
        e.Cancel = e.Col.name <> "审核"
    Else
        e.Cancel = False
    End If
Next

光用一行代码，我这里给锁住了，得这样才行。

If e.Row("审核") = True Then
        e.Cancel = e.Col.name <> "审核"   

End If