PrepareEdit

If User.Name <> "管理员" Then
    If e.Col.Name = "第一列" Then
        e.Cancel = True
        e.Table.SetHeaderCellForeColor(e.Col.Name ,Color.Red)
    End If
End If

你要去掉锁，就不能用你上面的代码。

我的代码可以去锁，也可以变色，不允许编辑的，就不能编辑。

具体怎么运用，要看你的权限如何设置。

好事做到底，给你个实例。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列标题颜色替换锁头.table

思路给你理一理：

1、全局代码

Public Tablecol As String    \'全局变量记录表名列名

2、Initialize

For Each dt As DataTable In DataTables
    dt.GlobalHandler.PrepareEdit = True   \'使PrepareEdit全局事件有效
Next

3、AfterOpenProject

For Each t As Table In Tables
    For Each c As Col In t.Cols
        If c.AllowEdit = False Then
            t.SetHeaderCellForeColor(c.Name ,Color.Red)   \'禁止编辑就变色
            tablecol + = t.Name & "," & c.Name   \'表名列名加到全局变量中
            c.AllowEdit = True  \'相应的列恢复编辑，目的是去掉锁头
        End If
    Next
Next

4、PrepareEdit

If tablecol.Contains(e.Table.Name & "," & e.Col.Name) = True Then   \'如果全局变量中包含此表此列的名称，说明此表的此列禁止编辑
    e.Cancel = True   \'取消编辑，达到c.AllowEdit = False一样的效果
End If