- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 其他人员无法查看表单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110900)
-- 发布时间：2017/12/12 8:23:00
-- 其他人员无法查看表单
此主题相关图片如下：qq图片20171212080946.png
Select Case e.Col.name
Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"
If User.Group <> "车间工艺人员" Then
e.Cancel = True
End If
End Select
Select Case e.Col.name
Case "批准","批准日期" , "批准人"
If User.Group <> "经理" Then
e.Cancel = True
End If
End Select
Select Case e.Col.name
Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人"
If User.Group <> "公司管理人员" Then
e.Cancel = True
End If
End Select
Select Case e.Col.Name
Case "审核人" ,"审核日期" ,"批准人" , "批准日期"
e.Cancel = True
Case Else
If e.Row.IsNull("审核人") = False Then
e.Cancel = True
End If
End Select
此主题相关图片如下：3.png
此主题相关图片如下：3.png检具明细只有车间工艺工程师可以编辑，其他人员只能查看，可我编辑完以后转其他账户登录，结果点不开，看不了内容 请问怎么回事
-- 发布时间：2017/12/12 8:49:00
--
这段代码删除
Select Case e.Col.name
Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"
If User.Group <> "车间工艺人员" Then
e.Cancel = True
End If
End Select
这段代码写到datacolchanging事件去
Select Case e.DataCol.name
Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"
If User.Group <> "车间工艺人员" Then
e.Cancel = True
End If
End Select
-- 发布时间：2017/12/12 9:07:00
--
修改完了 其他用户也可以调阅 但是他们也可以对文档进行更改 这个这怎么破 用什么功能可以解决
-- 发布时间：2017/12/12 9:52:00
--
beforeOpenFile事件
If e.DataCol.Name = "检具明细" Then
on error resume Next
Dim app As New MSWord.Application
Dim fileName = ProjectPath & "attachments\\" & e.FileName
Dim doc = app.Documents.Open(fileName)
doc.Unprotect(Password:="123456")
If User.Group <> "车间工艺人员" Then
doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
Doc.saved = True
End If
App.Visible = True
e.Cancel = True
End If
[此贴子已经被作者于2017/12/12 10:52:17编辑过]
-- 发布时间：2017/12/12 10:24:00
--
此主题相关图片如下：2.png
此主题相关图片如下：3.png
有点甜老师：我按你给得编码修改完以后，发现的用户都可以对内容让进行修改，而且还提示错误？这个不知道什么原因
-- 发布时间：2017/12/12 10:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:丹东隆盛机加管理平台.table |
-- 发布时间：2017/12/12 10:26:00
--
系统员密码 867439247
-- 发布时间：2017/12/12 10:36:00
--
此主题相关图片如下：foxtable.png
做个窗体权限分配的窗体。。。。。。。。
-- 发布时间：2017/12/12 10:50:00
--
这个怎样做
-- 发布时间：2017/12/12 10:52:00
--
If e.DataCol.Name = "检具明细" Then
on error resume Next
Dim app As New MSWord.Application
Dim fileName = ProjectPath & "attachments\\" & e.FileName
Dim doc = app.Documents.Open(fileName)
doc.Unprotect(Password:="123456")
If User.Group <> "车间工艺人员" Then
doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
Doc.saved = True
End If
App.Visible = True
e.Cancel = True
End If