单元格填入数据锁定 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单元格填入数据锁定

共有2257人关注过本帖树形打印复制链接主题：单元格填入数据锁定

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

单元格填入数据锁定 发帖心情

Post By：2015/5/25 15:59:00 [显示全部帖子]

这是一张进度表每个部门主管填写自己的所属列任何一个单元格填入数据这个单元格将被锁定只有通过菜单栏解锁按钮才能解锁修改
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20150525154001.png

求助代码，

[此贴子已经被作者于2015/5/25 15:59:32编辑过]

yifan3429

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2015/5/25 17:06:00 [显示全部帖子]

Select Case User.Group

Case "涂装部"

Select Case e.Col.Name

Case "备料日期","机加工日期","贴皮日期" ,"组装日期","入库日期"

e.Cancel = True

End Select

Case "木工部"

Select Case e.Col.Name

Case "砂磨日期","做灰日期","底漆日期" ,"面漆日期","入库日期","油磨日期"

e.Cancel = True

End Select

If e.Row.isnull(e.Col.name)=False Then

If User.Group <> "生产厂长" Then

e.cancel=False

End If

可以这个方案解决我的代码不多求调整不能控制

[此贴子已经被作者于2015/5/25 17:06:07编辑过]

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2015/5/25 17:42:00 [显示全部帖子]

还是这个表上的问题如果备料日期没有填机加工日期就不能填写如果备料机加工日期都没填组装就不能填写用什么控制怎么控制

主题：单元格填入数据锁定