如何在Excel中创建用户登录窗口

如何在Excel中创建用户登录窗口？为了保护Excel工作表，有时需要设置打开工作表的权限，这需要创建用户登录界面。在Excel中，用户登录窗口的方式有很多种，使用控件就是其中一种重要的方式。介绍了如何利用VBA窗体控件、文本框控件和按钮控件制作用户登录窗口。

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

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

2.从工具箱对话框中选择文本框控件、标签控件和命令按钮控件，并在表单中绘制这些控件，如图2所示。在Properties对话框中，将两个标签控件的Title属性分别设置为Login Name和Login Password，将命令按钮控件的Title属性分别设置为OK和Cancel，如图3所示。

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

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

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

如果文本框1。文本“郭一凡”，然后“确定用户名是否正确。

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

带文本框1。“SelStart=0”设置选定文本的起始字符。SelLength=Len(文本框1。设置选定文本的长度。设置焦点文本框获得焦点。

以…结尾.

else if text box 2 . text ' abcdef ' then '如果密码错误。

密码输入不正确，请重新输入！建议

带文本框2。“SelStart=0”设置选定文本的起始字符。SelLength=Len(文本框2。设置选定文本的长度。获得焦点的“设定焦点”。

以…结尾.

其他的

Msgbox“登录成功，欢迎！”登录成功提示

卸载我卸载表单。

结束条件

端接

给出提示

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

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

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

卸载我卸载表单。

此工作簿。关闭关闭工作簿。

端接

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

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

图6密码输入错误提示。

图7登录成功提示。

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