[分享]登录和用户权限

TGB · 发表于 2006-11-28 10:09

    这是在我原来的一个登录界面上修改后的,主要受到了1980-7-10生的stx兄弟的登录界面的影响,但是我无法做得像stx兄弟做的那样漂亮.
    能实现的有:管理员可以指定用户登录时操作的工作表,用户可修改自己名字,并可为自己设一个在登录窗口中显示的头像...
    可能代码有点多，但应该容易看懂，其中涉及API函数的我也一句都不懂，全是抄的
    如果你是比我还菜点的鸟,我想你会从中受到一点启发,学到一点方法....

   从对VBA一点都不懂到现在,在论坛上泡了不少时间了,不得不说论坛是我们学习的最好的地方,如果你已是会员,请常回家看看吧!
昨天在论坛上找到窗体的渐显渐隐的代码，一并加进去了,计算机速度快的话请将步长值调小一些，示例文件在3200+的cpu上几乎看不到效果。

喜欢的顶一下吧，以让更多的兄弟们看到，

附件又重新更新了一次，增加了一个只可浏览的权限...,感觉有点心有余而力不足了——基础太差了！

lBeO8BCz.rar (245.39 KB, 下载次数: 2153)

[此贴子已经被作者于2007-4-12 12:56:21编辑过]

opiona · 发表于 2006-11-28 10:22

定一下

chenfly76 · 发表于 2006-11-28 10:23

好！！！！！！！！！！！！！

stx1980710 · 发表于 2006-11-28 10:26

不错！顶一下！

顺便问一下，你怎么知道stx1980710中的数字就代表是1980-7-10生的呢？

TGB · 发表于 2006-11-28 10:29

QUOTE:

以下是引用stx1980710在2006-11-28 10:26:35的发言：

不错！顶一下！

顺便问一下，你怎么知道stx1980710中的数字就代表是1980-7-10生的呢？

这应该不难猜。

Aeolian-Vox · 发表于 2006-11-28 10:35

BC。建议登录的时候，默认一个用是被选中的，退出该系统时，不要影响关闭其它打开的工作簿。

TGB · 发表于 2006-11-28 10:59

QUOTE:

以下是引用Aeolian-Vox在2006-11-28 10:35:59的发言：
BC。建议登录的时候，默认一个用是被选中的，退出该系统时，不要影响关闭其它打开的工作簿。

本来原来是有一个默认选中的，但一个不小心回车就进了，所以改了，如果自己修改只用在窗体启动是将listbox1.listindex=大于-1。应该不会影响别的工作簿吧？如果有的话，[选择EXCEL菜单]试下呢。。

[此贴子已经被作者于2006-11-28 11:23:31编辑过]

zwh3311085 · 发表于 2006-11-28 11:26

厉害!!!!!

zwh3311085 · 发表于 2006-11-28 13:43

中午没有休息,研究了您的界面,我发现工作中存盘的时候,存到SHEET2,是不是保存那个工作表时,还显示那个工作表?

头像更换能否说一下步骤.

谢谢楼主!

TGB · 发表于 2006-11-28 14:45

谢谢 zwh3311085兄：

点击[保存]时其实是隐藏了除sheet2外的所有的工作表，这样做的原因是如果你工作中点了保存而在退出时却又选择了“否”，下次登录时如果不启用宏的话显示的将是你点击保存后的界面。既然每个用户用不同的工作表，当然也不想别的用户看到你的工作表。所以就这样搞了一下，有点不方便。其实应该用一个变量保存当前的工作表，保存之后再将工作表显示出来。

头像的更改很简单，点击[更改我的头像]，选一个中意的双击。

[此贴子已经被作者于2006-11-28 14:47:28编辑过]

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