主题：有没有命令让窗口打开后所有控件都是只读的，不想一个个设置。

判断用户名就行啊：

Select case  User.name

   case “张三","李四","王五"

      设置控件的ReadOnly或Enabeld属性

end Select

如果新增行能编辑，其他行部分人不能编辑 ，设置窗口的全局Enter事件即可：

Dim bn As BooleanEnum
If Tables("表A").Current.DataRow.RowState = DataRowState.Added Then '新增行全部能编辑
    bn = BooleanEnum.False
Else
    Select Case  User.name
        Case "张三","李四","王五" '这些人不能编辑
            bn =   BooleanEnum.True
        Case Else
            bn =   BooleanEnum.False
    End Select
End If
e.sender.ReadOnly = bn

提问最好一次将问题讲清楚，不要一会增加一点要求，你1楼、3楼、8楼在不断第变化问题，本来只需一次回帖，5分钟搞定的问题，会需要几个小时。