[已解决]权限分配问题

zhufuan · 发表于 2022-11-18 18:20

本帖最后由 zhufuan 于 2022-11-18 18:40 编辑

登录名：飞翔密码：123456
问题在化验报表里

当用户权限管理表中为×号时，禁止编辑原料信息中的J1到DZ区域

当用户权限管理表中为√号时，可以编辑原料信息表所有区域

谢谢老师

最佳答案

月排行榜 / 总排行榜

zjdh

2022-11-19 13:24

本帖最后由 zjdh 于 2022-11-19 13:29 编辑

登录系统.rar (456.53 KB, 下载次数: 21)

zjdh · 发表于 2022-11-19 13:24

本帖最后由 zjdh 于 2022-11-19 13:29 编辑

登录系统.rar (456.53 KB, 下载次数: 21)

zjdh · 发表于 2022-11-19 13:25

本帖最后由 zjdh 于 2022-11-19 13:32 编辑

Private Sub CommandButton1_Click()
'.................

End If
With Sheets("原料信息")
      .Unprotect
      If (权限(ComboBox1, 1) = "一般用户" And Sheet1.Cells(7, "L") = "×") Or (权限(ComboBox1, 1) = "高级用户" And Sheet1.Cells(5, "L") = "×") Then
         .Columns("J:DZ").Locked = True
      Else
         .Columns("J:DZ").Locked = False
      End If
      .Protect
End With
Unload Me
'............
End Sub

山海风云轩 · 发表于 2022-12-6 16:18

学习学习，666

		自动登录	找回密码
密码			注册