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

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

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

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

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

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

图2向表单添加控件

图3修改控件的

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

图4更改

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

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

‘ MsgBox ‘用户名错误，您无权登录！’给出了不正确的提示

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

Elseif textbox2.text’ abcdef ‘然后’如果密码错误

‘密码输入不正确，请重新输入！’暗示

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

MsgBox ‘登录成功，欢迎光临！’登录成功提示

“卸载我”卸载表单

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。