用户A登陆以后,设置各个表属性,如
If user.name = "用户A" Then For Each t As Table In Tables t.AllowEdit = False NextEnd If