Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么限制某用户不能解除锁定列


  共有9074人关注过本帖树形打印复制链接

主题：怎么限制某用户不能解除锁定列
帅哥哟，离线，有人找我吗？
cy2025
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		怎么限制某用户不能解除锁定列  发帖心情 Post By：2012/5/5 10:03:00 [只看该作者]

1.如题

2.  怎么添加多用户菜单与权限管理，

If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
cy2025
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		  发帖心情 Post By：2012/5/5 12:16:00 [只看该作者]

各位高手帮忙看看，怎么没人回啊，
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/5 12:22:00 [只看该作者]

select Case User.Name

  case "用户1","用户2","用户三"

    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End Select

 

  是不是这样的意思?
 回到顶部
帅哥哟，离线，有人找我吗？
cy2025
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		  发帖心情 Post By：2012/5/5 12:38:00 [只看该作者]

是啊，可是会出错
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/5 14:04:00 [只看该作者]

出错,什么错?

 回到顶部
帅哥哟，离线，有人找我吗？
cy2025
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		  发帖心情 Post By：2012/5/5 14:42:00 [只看该作者]

这个我会了，我用

If User.Name = "开发者" Then

    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True

    Else

    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False

End If

 

还有一个问题

怎么限制某用户不能解除锁定列 如编号列我锁定了，别的用户不能解锁

 
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/5 15:34:00 [只看该作者]

If User.Name <> "开发者" Then
    Tables("表名").AllowEdit = True
Else
    MessageBox.Show("你是开发者,没权解开表")
    Return
End If
 回到顶部
帅哥哟，离线，有人找我吗？
cy2025
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		  发帖心情 Post By：2012/5/5 15:45:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table

 


帮了我锁定A表的第一列，只有开发者可以解锁A表第一列

先谢谢了
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/5 16:31:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table
 回到顶部
帅哥哟，离线，有人找我吗？
cy2025
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：476 威望：0 精华：0 注册：2012/4/18 16:56:00 		  发帖心情 Post By：2012/5/5 16:46:00 [只看该作者]

图片点击可在新窗口打开查看为什么我用1用户打开A表第一列还是可以解除锁定啊

 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询