用VBA编制用户权限管理系统

1、正确学会Excel VBA的16堂课用VBA编制用户权限管理系统创建管理用户权限的窗体保护设计完成的使用权限管理系统应用用户权限管理系统创建管理用户权限的窗体创建管理用户权限的窗体 创建“用户权限管理系统说明”和“用户权限”工作表 创建【登录】窗体 创建【注册】窗体 创建【更改用户权限】窗体创建创建“用户权限管理系统说明用户权限管理系统说明”和和“用户权限用户权限”工作表工作表具体操作步骤如下：步骤1：新建一个工作薄并将其保存为“用户权限管理系统”；将“Sheet1”工作表的名称设置为“用户权限管理系统说明”，最后合并A1：I1之间的单元格，在其中输入文本“用户权限管理系统”，如图14-1所示

2、。步骤2：选中A1单元格并右击，在弹出菜单中选择【设置单元格格式】菜单项，即可打开【设置单元格格式】对话框，如图14-2所示。在【字体】选项卡“字体”列表框中选择“华文宋体”选项；在“字形”列表框中选择“加粗”选项；在“字号”列表框中选择“16”选项，在“颜色”下拉列表中选择相应的颜色。创建创建“用户权限管理系统说明用户权限管理系统说明”和和“用户权限用户权限”工作表工作表具体操作步骤如下：步骤3：选择【填充】选项卡，在“背景色”栏中选择需要填充的颜色，如图14-3所示。单击【确定】按钮，即可看到设置后的单元格字体和填充效果，如图14-4所示。步骤4：分别合并A2:A6、A7:A11、B2:I

3、2、B3:I3、B4:I4、B5:I5、B6:I6 以及B8:I10之间的单元格，合并后的效果如图14-5所示。创建创建“用户权限管理系统说明用户权限管理系统说明”和和“用户权限用户权限”工作表工作表具体操作步骤如下：步骤5：为了表格的美观，需要使用自动换行功能。选中B2：I7之间单元格，在右击弹出菜单中选择【设置单元格格式】选项，即可打开【设置单元格格式】对话框，在【对齐】选项卡“水平对齐”下拉列表中选择“靠左”选项；在“文本控制”区域中勾选“自动换行”复选项，如图14-6所示。单击【确定】按钮，即可启动“自动换行”功能。步骤6：设置其他已合并的单元格对齐方式。分别在A2:I10之间的单元格

4、区域内输入有关“用户权限管理系统”的说明文字，如图14-7所示。创建创建“用户权限管理系统说明用户权限管理系统说明”和和“用户权限用户权限”工作表工作表具体操作步骤如下：步骤7：设置A2:B6之间单元格的边框和填充属性，如图14-8所示。“用户权限管理系统说明”工作表就制作完成了，用户可以考虑添加一些图片和动画等内容。步骤8：创建“用户权限”工作表，在“用户权限管理系统”工作薄中将“Sheet2”工作表重命名为“用户权限”；合并A1：E1之间的单元格，在其中输入文本“用户权限管理”，如图14-9所示。创建创建“用户权限管理系统说明用户权限管理系统说明”和和“用户权限用户权限”工作表工作表具体操

5、作步骤如下：步骤9：选中合并后的A1单元格，设置该元格的字体和填充属性，如图14-10所示。在B3:D10之间的单元格中分别输入已经注册用户的编号、级别、密码等信息，如图14-11所示。步骤10：拖动鼠标选中B3:D30之间单元格，再采用设置边框的方法给这些单元格设置行高、填充背景色和边框，设置完毕后的效果如图14-12所示。保护设计完成的用户权限管理系统保护设计完成的用户权限管理系统 隐藏工程代码 锁定工程锁定工程锁定工程具体的操作步骤如下：步骤1：在【Microsoft Visual Basic for Application】主窗口可对工程进行保护，在【Microsoft Visual

6、Basic for Application】主窗口中选择“VBAProject（用户权限管理系统）”工程，如图14-84所示。步骤2：在右击弹出菜单中选择【VBAProject属性】菜单项，即可打开【VBA Project-工程属性】对话框，在【保护】选项卡“锁定工程”组合框勾选“查看时锁定工程”复选项，在“查看工程属性的密码”组合框中的“密码”和“确认密码”文本框输入相同的密码，这里输入的是123456，如图14-85所示。锁定工程锁定工程具体的操作步骤如下：步骤3：单击【确定】按钮，即可对该工程进行保护。再次打开“用户权限管理系统”工作薄，再打开【Microsoft Visual Basi

7、c for Application】主窗口，在其中看到“用户权限管理系统”工程已经被锁定，如图14-86所示。步骤4：双击“VBAProject（用户权限管理系统）”工程，即可打开【VBAProject密码】对话框，如图14-87所示。如果在“密码”文本框中输入一个错误的密码，单击【确定】按钮，即可打开【无效的密码】提示框，如图14-88所示。锁定工程锁定工程具体的操作步骤如下：步骤5：只有在“密码”文本框中输入正确的密码（123）之后，单击【确定】按钮，方可在【Microsoft Visual Basic for Application】主窗口看到“用户权限管理系统”工程已经变成可用状态，如

8、图14-89所示。步骤6：如果想取消锁定工程，则需在【VBAProject-工程属性】对话框取消勾选“查看时锁定工程”复选框，单击【确定】按钮，即可成功取消锁定工程。应用用户权限管理系统应用用户权限管理系统 验证用户权限管理系统 1. 未注册用户 2一般用户 3高级用户 4管理员 将用户权限管理系统保存为模板管理员管理员具体的操作步骤如下：步骤1：在【登录窗口】对话框中的“用户名”下拉列表中选择一个管理员用户，例如“Administrator”，并在“密码”文本框中输入“Administrator”，如图14-106所示。步骤2：单击【登录】按钮，即可自动关闭【登录窗口】对话框并进入用户权限管

9、理系统”工作薄中，在“用户权限”工作表中可看到设置的用户权限，在其中可看到所有已注册的用户信息，如图14-107所示。管理员管理员具体的操作步骤如下：步骤3：单击【更改用户权限】按钮，即可打开【更改用户权限】对话框，如图14-108所示。在“请输入用户名”下拉列表中选择“SL04012”选项，此时在“用户名”和“当前用户级别”文本框中分别显示该用户的用户名和当前级别，如图14-109所示。步骤4：在“更改用户级别为”下拉列表中选择“高级用户”选项，单击【确定】按钮，即可打开【用户权限更改成功】对话框，如图14-110所示。管理员管理员具体的操作步骤如下：步骤5：在【更改用户权限】对话框中单击【

10、取消】按钮，即可取消对该用户信息的选择，看到“用户名”和“当前用户级别”文本框中信息已经被清空，如图14-111所示。步骤6：在【更改用户权限】对话框中单击【取消】按钮，即可返回“用户权限”工作表中，在其中看到“SL04012”用户的级别已经变为“高级用户”，如图14-112所示。步骤7：将“SL04011”用户级别更改为“管理员”，如图14-113所示。管理员可提升或降低每个注册用户的用户级别。管理员还可以在“用户资料表”工作表修改用户的信息。专家课堂（常见问题与解答）专家课堂（常见问题与解答）点拨点拨1：在用户权限管理系统设计完成后，为什么还要隐藏工程代码和锁定工程？解答：解答：之所以要进行隐藏工程代码和锁定工程操作，是为避免用户通过【登录窗口】进入工作薄，单击“代码”组中的【Visual Basic】按钮，在打开窗口中可对创建的用户权限管理系统进行修改。点拨点拨2：在创建【注册