[原创]仿正规软件的权限设置及密码登陆的例子

gerrily

楼主，我下载了，怎么在输入密码的时候怎么不让输入数字和字母呢？

是不是代码变了？

gaosi2772

在家里我是高科技产业的老总！在单位我算是计算机学骨干分子，在internet游戏里我算是一代玩手，在你们面前我算个狗屁啊！学海无涯啊！你们让我明白这个道理！谢谢各位！我向你们学习，向你们致意。

[em04]

kezhiye

请问如何将本例的10个表扩展到20个表或更多

前面有几位朋友问过了，但我还是不会增加，只好再行求问。

kezhiye

有谁知道吗？

zmb0627

不错，很好的示例，如果能加上"新增用户”就更好了，代码也可以再简洁些

kezhiye

如何将主界面的十个工作表扩展到十五个或者更多啊？？？

仁者乐山

Private Sub CommandButton1_Click() Dim c As Integer c = 0 If c = 3 Then ActiveWorkbook.Close End If If TextBox1.Text = "12345678" Then Sheets("sheet3").Select UserForm1.Hide Unload UserForm1 MsgBox "欢迎你进入工作簿" & Chr(10) & "祝你操作愉快!", vbOKOnly + vbExclamation, "工作簿打开" Else MsgBox "密码错误！", vbOKOnly + vbCritical, "工作簿锁定" TextBox1.Text = "" TextBox1.SetFocus c = c + 1 MsgBox "次数" & c End If End Sub

Private Sub CommandButton2_Click() ActiveWorkbook.Close End Sub

我的计数器C怎么不增长呀？请赐教，不胜感谢！

江鸟

各位高手：在下为一名财务人员，现正接到一个“重任”：做一套各部门月度预算信息的收集及随时返馈给各部门其预算执行情况的系统。要功能主要有：1、密码登陆。2、权限设置。3、更换操作员。4、分权限打开报表。5、能在放在内部的FTP上供各部门操作。但本人几乎对VBA一翘不通，因为涉及企业内的一些重要数据所以还不能请同事帮忙。我想问问各位：象我这样如果按本贴子讲的一步一步做，最后能不能完成以上要求。工作表不少于20个。谢谢各位，请不吝赐教。

我用的是office2003.

[此贴子已经被作者于2005-4-12 14:24:47编辑过]

instinct

先谢谢！再下载学习！

lfx5712

我这个菜鸟来说，来套用你的东西也很费劲，不过我会努力学习 。