一个全新的用户登录系统

hqlin65 · 发表于 2017-7-25 23:10

非常棒，学习了

3107752909 · 发表于 2017-12-12 22:58

学习一下111111111111

aliCT · 发表于 2017-12-13 09:45

留下来看看，谢谢分享

aliCT · 发表于 2017-12-13 09:47

留下来看看学习

aliCT · 发表于 2017-12-13 09:48

留下来看看学习

laojiu369 · 发表于 2017-12-13 11:34

这么实用的帖子竟然没有人顶，我顶！
收下了，谢谢楼主共享.

shuai21c · 发表于 2017-12-26 19:07

非常好的东西啊，谢谢分享。

aliensky · 发表于 2018-8-20 21:02

学习了。感谢奉献

w8899 · 发表于 2018-8-21 11:15

这么实用的帖子竟然没有人顶，我顶！收下了，谢谢楼主共享.

w8899 · 发表于 2018-8-21 15:28

If sh.Name <> "系统设置" And sh.Name <> "用户管理" And sh.Name <> "产品资料" And sh.Name <> "员工信息" And sh.Name <> "客户资料" And sh.Name <> "数据库" And sh.Name <> "进销存报表" And sh.Name <> "主页" And sh.Name <> "temp" And sh.Name <> "入库出库汇总查询" Then
sh.Visible = -xlSheetVisible '除"系统设置"表和"用户管理。。。。。"表以外所有工作表取消隐藏
关键在这里，工作薄中除了上面隐藏的就是不是管理员打开的工作表，其实就利用深度隐藏来实行

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

[分享] 一个全新的用户登录系统