多用户登陆权限设置匹配不同的工作表

xxl0825 · 发表于 2020-4-25 09:48

很牛，自己用表格做系统。留个名以后学习。

linzijing86 · 发表于 2020-4-25 13:31

本帖最后由 linzijing86 于 2020-4-25 17:11 编辑

zjdh 发表于 2020-4-12 12:53
管理员密码：185

老师，你好，刚试了一下你修改的这个，发现关闭工作簿时，可以直接退出，但关闭整个EXCEL表时还是需要关闭两次。关闭.png

另外填入账号密码，点击登录，弹出确定和取消框时，点击取消，也会直接进入。能否去掉登录成功的温馨提示，密码正确，直接进入表格。
取消.png

此外  在thisworkbook 中的代码是什么意思，求解？

Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show 1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("生产进度").Visible = True
For Each sht In Worksheets
      nnn = sht.Name
      If sht.Name <> "生产进度" Then sht.Visible = 2
Next
ThisWorkbook.Close True
Application.Quit
End Sub

走过路过嫑错过 · 发表于 2020-4-25 14:57

表示看天书的飘过

zjdh · 发表于 2020-4-25 22:28

本帖最后由 zjdh 于 2020-4-25 22:47 编辑

linzijing86 发表于 2020-4-25 13:31
老师，你好，刚试了一下你修改的这个，发现关闭工作簿时，可以直接退出，但关闭整个EXCEL表时还是需要关 ...

这容易

生产进度跟踪系统W.rar (441.64 KB, 下载次数: 28)
管理员密码：185

zjdh · 发表于 2020-4-25 22:36

登录成功的温馨提示是求助者自己编写的，我没修改，应将参数改为：0+64 ，这样就没有取消按钮啦。

wutao8282 · 发表于 2020-4-26 23:01

zjdh 发表于 2020-4-25 22:36
登录成功的温馨提示是求助者自己编写的，我没修改，应将参数改为：0+64 ，这样就没有取消按钮啦。

老师！我是原创求助者，我想请问想能不能除了分配不同的工作表之外还能设置Sheet2分配不同的操作区域权限,类似于审阅里面的允许用户编辑区域，用VBA代码来实现，并且用户登录后可以操作对应的部门无需输入密码，其他部门则需要输入密码

linzijing86 · 发表于 2020-4-27 11:06

zjdh 发表于 2020-4-25 22:36
登录成功的温馨提示是求助者自己编写的，我没修改，应将参数改为：0+64 ，这样就没有取消按钮啦。

谢谢老师。开始根据自己需求，调整表格和代码。

zjdh · 发表于 2020-4-28 15:57

本帖最后由 zjdh 于 2020-4-28 15:58 编辑

wutao8282 发表于 2020-4-26 23:01
老师！我是原创求助者，我想请问想能不能除了分配不同的工作表之外还能设置Sheet2分配不同的操作区域权限 ...

搞好了吗？

生产进度跟踪系统S.rar (448.74 KB, 下载次数: 46)
管理员密码：185
生产进度表的4个区域密码分别是：1111，2222，3333，4444

wutao8282 · 发表于 2020-4-28 19:22

zjdh 发表于 2020-4-28 15:57
搞好了吗？

管理员密码：185

搞好了，感谢大神！没想到真的实现了，如果不需要使用锁定功能，直接用VBA实现禁止修改其他区域就太完美了！

zjdh · 发表于 2020-4-28 21:06

本帖最后由 zjdh 于 2020-4-28 21:08 编辑

wutao8282 发表于 2020-4-28 19:22
搞好了，感谢大神！没想到真的实现了，如果不需要使用锁定功能，直接用VBA实现禁止修改其他区域就太完美 ...

实现的方法很多，不过现在的方法是最简单的啦。

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

[讨论] 多用户登陆权限设置匹配不同的工作表

评分