当新用户在“登录窗口”窗体中单击“注册”按钮时，即可打开“注册”窗体，从而注册成为“一般用户”级别的用户。创建“注册”窗体的具体操作步骤如下：

在“用户权限管理系统”工作簿中将“Sheet3”工作表重命名为“员工资料表”；合并A1∶F1单元格区域，在其中输入文本“员工资料表”，如图11-40所示。

选中合并后的单元格A1，再设置该元格的字体和填充属性，如图11-41所示。

图11-40 创建“员工资料表”工作表

图11-41 设置单元格A1的字体和填充属性

在A2∶F2单元格区域分别输入“员工编号”、“姓名”、“性别”、“学历”、“工作时间”、“身份证号”等内容，在“开始”选项卡的“字体”组中设置字体的大小、字型、颜色等属性，如图11-42所示。

设置A2∶F2单元格区域的填充和边框属性后，在A3∶F41单元格区域输入各个员工的信息；设置A3∶F41单元格区域的边框属性，效果如图11-43所示。

图11-42 输入表格项目信息并设置字体属性

图11-43 “员工资料表”工作表的最终效果

在“Microsoft Visual Basic for Application”主窗口中选择“插入”→“用户窗体”菜单项，即可创建一个名为“UserForm1”用户窗体。在“属性”对话框的“Caption”文本框中输入“注册”，即可看到创建的窗体名称已经被设置为“注册”，如图11-44所示。

在“工具箱”对话框中单击“标签”按钮，在适当位置单击创建一个合适大小的标签，在其“属性”对话框的“Caption”文本框中输入“在该窗口中只能注册为一般用户”，即可将该标签内容设置为“在该窗口中只能注册为一般用户”，如图11-45所示。

图11-44 插入并设置用户窗体

图11-45 绘制一个标签并设置其名称

在“属性”列表单击“Font”文本框右侧的“字体”按钮，打开“字体”对话框，在“字体”下拉列表中选择“微软雅黑”；在“字形”下拉列表中选择“粗体”；在“大小”下拉列表中选择“五号”，如图11-46所示。单击“确定”按钮返回到“注册”窗体，即可看到设置字体属性后的标签效果，如图11-47所示。

图11-46 “字体”对话框

图11-47 设置字体属性后的标签效果

再绘制两个标签并将其“Caption”属性分别设置为“注册用户名”和“用户密码”，如图11-48所示。在“工具箱”对话框中单击“文字框”按钮，拖动鼠标即可添加两个文字框，如图11-49所示。

图11-48 绘制“注册用户名”和“注册密码”两个标签

图11-49 添加两个文字框

添加“注册”和“退出”按钮以实现注册和退出操作。在“工具箱”对话框中单击“命令”按钮，在创建的窗体中绘制一个名称为CommandButton1命令按钮，在“属性”列表中的“Caption”文本框中输入“注册”并设置字体属性，如图11-50所示。(www.daowen.com)

再绘制一个命令按钮并将其“Caption”属性设置为“退出”，设置其字体属性，如图11-51所示。

图11-50 添加“注册”按钮

图11-51 添加“退出”按钮

在“Microsoft Visual Basic for Application”主窗口中双击创建的“注册”命令按钮，即可进入其代码编辑窗口，在其中输入该命令按钮的功能代码，如图11-52所示。

图11-52 给“注册”命令按钮添加功能代码

代码如下：

在上述代码中定义了两个错误，因为Vlookup函数找不到指定数值。第一个错误是由于该公司不存在这个员工编号，即没有该用户信息；第二个错误是由于找不到已经注册的该员工信息，可对其进行注册。将可以注册的用户名和密码分别添加到“用户权限”工作表的最后一行对应位置处，并将其级别设置为“一般用户”，同时弹出“注册成功”提示信息。

为实现从“注册”窗体返回“登录窗口”窗体功能，需要为“退出”命令按钮添加相应功能代码。在“注册”窗体中双击“退出”命令按钮，在代码编辑窗口输入该命令按钮功能代码，以实现从“注册”窗体返回“登录窗口”窗体，如图11-53所示。

图11-53 给“退出”命令按钮添加功能代码

输入“退出”命令按钮的代码如下：

上述代码的作用是当单击“退出”按钮，即可从“注册”窗体返回“登录窗口”窗体。

与“登录窗口”窗体一样，为避免用户从“注册”窗体直接进入工作簿，也需要设置Terminate事件。在“UserForm2代码编辑”窗口的“对象”下拉列表中分别选择“UserForm”选项，在右边“事件”下拉列表中选择“Terminate”选项，在系统自动添加的PrivateSubUserForm_Terminate事件处理程序中添加相应的代码，以实现在关闭“注册”窗体时自动关闭工作簿，如图11-54所示。

添加后的PrivateSubUserForm_Terminate事件的完整代码如下：

在“Microsoft Visual Basic for Application”主窗口左边列表中双击“模块1”，即可进入其代码编辑窗口，在其中输入相应的代码，以实现使用change函数调出“更改用户窗体”窗体，如图11-55所示。代码如下：

图11-54 设置Terminate事件

图11-55 实现使用change函数调出“更改用户窗体”窗体

上述代码的作用是编辑一个change函数来调出UserForm3窗体，其中UserForm3窗体就是“更改用户权限”窗体。