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

ruanyb0721

感谢兰色幻想版主，但是如果我要通过用户验证要怎样输入密码，然后按什么键通过用户验证。请赐教！谢谢！

[em08]

兰色幻想

以下是引用ruanyb0721在2004-10-31 9:32:00的发言：

感谢兰色幻想版主，但是如果我要通过用户验证要怎样输入密码，然后按什么键通过用户验证。请赐教！谢谢！

[em08]

在窗体上加一个按纽

Private Sub CommandButton1_Click() Dim DA1, WW '定义变量DA1、WW DA1 = ”12345“ 'DA1的值为12345

If TextBox1.Value = DA1 Then '如果文本框中的值（即输入的密码）为12345

Set WW = CommandBars("standard").Controls.Add(Type:=msoControlButton) 'WW为新增加的常用工具栏的按纽 With WW .FaceId = 200 ' 按纽的图标为"200"代表的图标 .OnAction = "报表1" '指定宏为报表1 .Caption = "报表2" '表面标题为报表2 .Style = msoButtonIconAndCaption '类型为图标和文字共存 End With Unload 用户验证 '关闭窗体 End If Unload 用户验证 End Sub

ruanyb0721

谢谢版主！[em08]

foshan

兰色幻想版主：在登陆系统对话框中，如果在上面的复选框输入其它内容（非下拉框中的内容，如“版主”）并在下面的文本框上输入任意的数字按回车键就会出现错误。

提个建议：欢迎词对话框如果能在显示5秒钟后自动关闭然后进度主界面就好了。

[此贴子已经被作者于2004-10-31 18:20:03编辑过]

兰色幻想

以下是引用foshan在2004-10-31 17:31:00的发言：

兰色幻想版主：在登陆系统对话框中，如果在上面的复选框输入其它内容（非下拉框中的内容，如“版主”）并在下面的文本框上输入任意的数字按回车键就会出现错误。

这个可以通过设置该组合框的MatchRequired 属性为TRUE来实现

指定输入组合框文本部分的值是否必须与该控件现有列表中的条目相匹配。虽然用户可键入不匹配的值，但直到键入一个匹配的值才能退出该控件。

ccxxshhs

谢谢指教

changzi

不错！·非常感谢！

oldboy

太棒了，很多地方要学习。

请问斑竹，sheet1表的背景凸凹不平，是如何做出来的？请指点指点。谢了！

兰色幻想

以下是引用oldboy在2004-11-22 20:07:00的发言：

太棒了，很多地方要学习。

请问斑竹，sheet1表的背景凸凹不平，是如何做出来的？请指点指点。谢了！

格式菜单--自动套用格式里有

oldboy

谢谢，又学了一招。