登陆界面_多用户高级权限管理

软件爱好者 · 发表于 2011-5-26 17:38

登陆界面_多用户高级权限管理

操作說明:
1.啟用狀態(YES/NO)---可用/禁用
2.操作表與區域(批註與單元格聯合使用)
沒有批註=不受管理的工作表, 有批註=受管理的工作表;
沒有行列=全部行列不可操作, 有行列=可操作行列區域;
3.工作薄全部保護,工作表必須排序.
4.管理員具有最高權限.
5.用戶之間可以隨便切換,格式工具欄按鍵(Landng)啟動.
6.管理员登陆密码:adminvba
7.添加了自动按工作表CodeName名自动排序,支持(插入,改名,删除)工作表事件,真正达到工作表随心所欲移动的管理
8.发现第一次添加的工作表的CodeName属性为空,而第二次以后都有值了.
解决方法:ActiveWorkbook.VBProject.VBComponents(1).Activate'新建表时激活一下VBA工程

多用户登陆管理修正.rar (79.36 KB, 下载次数: 7808)

[ 本帖最后由软件爱好者于 2011-5-28 12:14 编辑 ]

ugyun · 发表于 2011-5-26 18:22

谢谢分享，密码各是什么？

shen7378 · 发表于 2011-5-26 18:26

正需要谢谢！！！

lhteee · 发表于 2011-5-26 22:46

就是，密码各是多少？？？？

lhsh36183 · 发表于 2011-5-27 09:57

做得很好，学习了。

shen7378 · 发表于 2011-5-27 23:28

这代码少了一特定功能，能不能监控工程是否设有密码，如果工程密码没有了，10秒后删除自身的代码，这样保护功能就增强了。。为了自已编辑安全可以在工程中先自定好一个快捷键，在10秒内按了快捷键可取消删除。。。。。。

工作表很好用，感谢你的分享！

[ 本帖最后由 shen7378 于 2011-5-27 23:44 编辑 ]

shen7378 · 发表于 2011-5-27 23:37

顺便说一句，楼主你的登陆界面_多用户高级权限管理表，工程密码被我破解，看到了。。。。

zjwww · 发表于 2011-5-28 06:01

软件爱好者 · 发表于 2011-5-28 12:08

原帖由 zjwww 于 2011-5-28 06:01 发表
930635

不好意思,后面加的 .VBComponents(1).Activate ' 激活一下VBA工程没有加判断,所以出现了故障,干脆去掉些功能,因为工程保护时,根本就刷新不了工程,同样会出现新建表,找不到 .CodeName ,这是个目前无力解决的难题,只有角开工程后才能更新新建表加入管理.

With ActiveWorkbook.VBProject
If .Protection = 1 Then '判斷vbe是否保護
Else
.VBComponents(1).Activate ' 激活一下VBA工程
End If
End With

zjwww · 发表于 2011-5-28 18:22

谢谢！

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

[原创] 登陆界面_多用户高级权限管理

回复 9楼软件爱好者的帖子

[原创] 登陆界面_多用户高级权限管理

回复 9楼 软件爱好者 的帖子

回复 9楼软件爱好者的帖子