其他人员无法查看表单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 其他人员无法查看表单

共有2269人关注过本帖树形打印复制链接主题：其他人员无法查看表单

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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编辑过]