Excel如何创建用户登录窗口？

介绍了如何利用VBA窗体控件、文本框控件和按钮控件制作用户登录窗口。

1.启动Excel并打开工作表，打开Visual Basic编辑器，在项目资源管理器中右键单击，在上下文菜单中选择“插入”|“用户表单”命令，即可插入用户表单。按F4打开属性对话框，并在标题文本框中输入文本“用户登录”来更改表单的标题，如图1所示。

图1创建一个用户表单并设置其属性。

2.从“工具箱”对话框中选择“文本框”控件、“标签”控件和“命令按钮”控件，并在表单中绘制这些控件，如图2所示。在属性对话框中，将两个Label控件的Caption属性分别设置为登录名和登录密码，将Command Button控件的Caption属性分别设置为OK和Cancel，如图3所示。

图2向表单添加控件。

图3修改控件的。

3.选择表单中的第二个“文本框”控件，在“属性”对话框中将“PasswordChar”属性设置为字符“*”，如图4所示。这样，在此文本框中输入的字符将被“*”替换。

图4更改文本框控件的。

4.右键单击表单中的“确定”按钮，在上下文菜单中选择“查看代码”命令，打开“代码”窗口。此时，Visual Basic编辑器将自动向“代码”窗口中的控件添加一个单击事件。为此按钮添加点击事件程序，如下所示：

私有子命令按钮1 _单击()

Textbox1.text“郭一凡”然后“判断用户名是否正确”。

MsgBox“用户登录名有误，您无权登录！”给出了不正确的提示。

带文本框1。“selstart=0”设置选定文本的起始字符。sellength=len (textbox1.text)'设置选定文本的长度。“setfocus”文本框获得焦点。

以…结尾

else if text box 2 . text“abcdef”然后“如果密码错误。

MsgBox“密码输入错误，请重新输入！”给个提示。

带文本框2。“selstart=0”设置选定文本的起始字符。sellength=len (textbox2.text)'设置选定文本的长度。“setfocus”获取焦点。

以…结尾

其他

MsgBox“成功登录，欢迎光临！”登录成功提示。

“卸载我”卸载表单。

如果…就会结束

末端接头

给出提示

这里，程序首先判断第一个文本框中的Text属性的值是否为设置的用户名，如果不是，则给出提示。同时，用With结构设置键SelStart属性和SelLength属性，使文本框中的文本突出显示。同时使用SetFocus方法使文本框获得焦点，方便用户更改用户名。如果输入的是设置的用户名，程序接着判断第二个文本框中的Text属性的值是否是设置的密码，如果不是，则执行与错误用户名相同的操作。如果用户名和密码正确，程序会提示并卸载表单。

5.然后在“代码”窗口中输入程序代码，并为“取消”按钮添加点击事件代码。具体方案如下：

私有子命令按钮2 _单击()

“卸载我”卸载表单。

此工作簿。“关闭”关闭工作簿。

末端接头

6.按F5运行程序，出现“用户登录”窗口。在“登录名”文本框中输入此人的姓名。如果用户没有被授权，程序会给出提示，如图4所示。点击“确定”按钮关闭提示对话框，“登录名”文本框将获得焦点，并在其中输入正确的登录名。在“登录密码”文本框中输入密码。如果密码错误，程序会给出提示，如图5所示。如果输入正确的用户名和登录密码，程序会提示登录成功，如图6所示。单击确定关闭对话框，用户登录表单将关闭。

图5登录名输入错误提示。

图6密码输入错误提示。

图7登录成功提示。

7.双击项目资源管理器中的“此工作簿”选项以打开“代码”窗口，并输入以下程序代码以使用户表单在工作簿打开时可见。切换到Excel，保存文档，完成这个例子的制作。