正确学会Excel VBA 的16堂课
用VBA编制用户权限管理系统
♂创建管理用户权限的窗体 ♂保护设计完成的使用权限管理系统 ♂应用用户权限管理系统
创建管理用户权限的窗体
• 创建“用户权限管理系统说明” 和“用户权限”工作表
• 创建【登录】窗体 • 创建【注册】窗体 • 创建【更改用户权限】窗体
管理员
具体的操作步骤如下： 步骤3：单击【更改用户权限】按钮，即可打开【更改用户权限】对话框，如图 14-108所示。在“请输入用户名”下拉列表中选择“SL04012”选项，此时在“ 用户名”和“当前用户级别”文本框中分别显示该用户的用户名和当前级别，如 图14-109所示。 步骤4：在“更改用户级别为”下拉列表中选择“高级用户”选项，单击【确定 】按钮，即可打开【用户权限更改成功】对话框，如图14-110所示。
创建“用户权限管理系统说明”和“用户权限”工作表
具体操作步骤如下： 步骤3：选择【填充】选项卡，在“背景色”栏中选择需要填充的颜色，如图143所示。单击【确定】按钮，即可看到设置后的单元格字体和填充效果，如图144所示。 步骤4：分别合并A2:A6、A7:A11、B2:I2、B3:I3、B4:I4、B5:I5、B6:I6 以及 B8:I10之间的单元格，合并后的效果如图14-5所示。
创建“用户权限管理系统说明”和“用户权限”工作表
具体操作步骤如下： 步骤9：选中合并后的A1单元格，设置该元格的字体和填充属性，如图14-10所示 。在B3:D10之间的单元格中分别输入已经注册用户的编号、级别、密码等信息， 如图14-11所示。 步骤10：拖动鼠标选中B3:D30之间单元格，再采用设置边框的方法给这些单元 格设置行高、填充背景色和边框，设置完毕后的效果如图14-12所示。
管理员
具体的操作步骤如下：
步骤5：在【更改用户权限】对话框中单击【取消】按钮，即可取消对该用户信 息的选择，看到“用户名”和“当前用户级别”文本框中信息已经被清空，如图 14-111所示。 步骤6：在【更改用户权限】对话框中单击【取消】按钮，即可返回“用户权限 ”工作表中，在其中看到“SL04012”用户的级别已经变为“高级用户”，如图 14-112所示。 步骤7：将“SL04011”用户级别更改为“管理员”，如图14-113所示。管理员 可提升或降低每个注册用户的用户级别。管理员还可以在“用户资料表”工作表 修改用户的信息。
创建“用户权限管理系统说明”和“用户权限”工作表
具体操作步骤如下： 步骤7：设置A2:B6之间单元格的边框和填充属性，如图14-8所示。“用户权限管 理系统说明”工作表就制作完成了，用户可以考虑添加一些图片和动画等内容。 步骤8：创建“用户权限”工作表，在“用户权限管理系统”工作薄中将 “Sheet2”工作表重命名为“用户权限”；合并A1：E1之间的单元格，在其中 输入文本“用堂（常见问题与解答）
• 点拨1：在用户权限管理系统设计完成后，为什么还要隐藏工程代码和锁定工 程？
• 解答：之所以要进行隐藏工程代码和锁定工程操作，是为避免用户通过【登 录窗口】进入工作薄，单击“代码”组中的【Visual Basic】按钮，在打开窗 口中可对创建的用户权限管理系统进行修改。
应用用户权限管理系统
• 验证用户权限管理系统
1. 未注册用户 2．一般用户 3．高级用户 4．管理员
• 将用户权限管理系统保存为模板
管理员
具体的操作步骤如下： 步骤1：在【登录窗口】对话框中的“用户名”下拉列表中选择一个管理员用户 ，例如“Administrator”，并在“密码”文本框中输入“Administrator”，如图 14-106所示。 步骤2：单击【登录】按钮，即可自动关闭【登录窗口】对话框并进入用户权限 管理系统”工作薄中，在“用户权限”工作表中可看到设置的用户权限，在其中 可看到所有已注册的用户信息，如图14-107所示。
创建“用户权限管理系统说明”和“用户权限”工作表
具体操作步骤如下： 步骤5：为了表格的美观，需要使用自动换行功能。选中B2：I7之间单元格，在 右击弹出菜单中选择【设置单元格格式】选项，即可打开【设置单元格格式】对 话框，在【对齐】选项卡“水平对齐”下拉列表中选择“靠左”选项；在“文本 控制”区域中勾选“自动换行”复选项，如图14-6所示。单击【确定】按钮，即 可启动“自动换行”功能。 步骤6：设置其他已合并的单元格对齐方式。分别在A2:I10之间的单元格区域内 输入有关“用户权限管理系统”的说明文字，如图14-7所示。
创建“用户权限管理系统说明”和“用户权限”工作表
具体操作步骤如下： 步骤1：新建一个工作薄并将其保存为“用户权限管理系统”；将“Sheet1”工 作表的名称设置为“用户权限管理系统说明”，最后合并A1：I1之间的单元格， 在其中输入文本“用户权限管理系统”，如图14-1所示。 步骤2：选中A1单元格并右击，在弹出菜单中选择【设置单元格格式】菜单项， 即可打开【设置单元格格式】对话框，如图14-2所示。在【字体】选项卡“字体 ”列表框中选择“华文宋体”选项；在“字形”列表框中选择“加粗”选项；在 “字号”列表框中选择“16”选项，在“颜色”下拉列表中选择相应的颜色。
锁定工程
具体的操作步骤如下： 步骤5：只有在“密码”文本框中输入正确的密码（123）之后，单击【确定】按 钮，方可在【Microsoft Visual Basic for Application】主窗口看到“用户权限管理 系统”工程已经变成可用状态，如图14-89所示。 步骤6：如果想取消锁定工程，则需在【VBAProject-工程属性】对话框取消勾选 “查看时锁定工程”复选框，单击【确定】按钮，即可成功取消锁定工程。
• 点拨2：在创建【注册】窗体后，为什么要在“模块1”代码编辑窗口中设置 “change”函数？
• 解答：在“模块1”代码编辑窗口中设置“change”函数的原因在于：只有 通过单击【更改用户权限】按钮才可以打开【更改用户权限】窗体，而【更 改用户权限】按钮对应的“宏名”为“change”。所以“change”函数就是 【更改用户权限】按钮指定宏的内容。
锁定工程
具体的操作步骤如下：
步骤3：单击【确定】按钮，即可对该工程进行保护。再次打开“用户权限管理 系统”工作薄，再打开【Microsoft Visual Basic for Application】主窗口，在其中 看到“用户权限管理系统”工程已经被锁定，如图14-86所示。 步骤4：双击“VBAProject（用户权限管理系统）”工程，即可打开【 VBAProject密码】对话框，如图14-87所示。如果在“密码”文本框中输入一个 错误的密码，单击【确定】按钮，即可打开【无效的密码】提示框，如图14-88 所示。
保护设计完成的用户权限管理系统
• 隐藏工程代码 • 锁定工程
锁定工程
具体的操作步骤如下： 步骤1：在【Microsoft Visual Basic for Application】主窗口可对工程进行保护， 在【Microsoft Visual Basic for Application】主窗口中选择“VBAProject（用户 权限管理系统）”工程，如图14-84所示。 步骤2：在右击弹出菜单中选择【VBAProject属性】菜单项，即可打开【VBA Project-工程属性】对话框，在【保护】选项卡“锁定工程”组合框勾选“查看 时锁定工程”复选项，在“查看工程属性的密码”组合框中的“密码”和“确认 密码”文本框输入相同的密码，这里输入的是123456，如图14-85所示。