主题：如何实现领导审批，

Select Case User.Name
    Case "再小","耀光"
        e.Cancel = True
End Select
If e.Col.Name = "审批" Then '只有领导才能审批
    If User.Group <> "领导"  Then
        e.Cancel = True
    ElseIf e.Row("审批") = True Then '如果此行已经审批了,则禁止修改
    e.Cancel = True

　End If

End If