用VBA编制用户权限管理系统介绍.pptx

用VBA编制用户权限管理系统 ♂创建管理用户权限的窗体 ♂保护设计完成的使用权限管理系统 ♂应用用户权限管理系统 创建管理用户权限的窗体 创建“用户权限管理系统说明”和“用户权限”工作表 创建【登录】窗体 创建【注册】窗体 创建【更改用户权限】窗体 创建“用户权限管理系统说明”和“用户权限”工作表 具体操作步骤如下： 步骤1：新建一个工作薄并将其保存为“用户权限管理系统”；将“Sheet1”工作表的名称设置为“用户权限管理系统说明”，最后合并A1：I1之间的单元格，在其中输入文本“用户权限管理系统”，如图14-1所示。 步骤2：选中A1单元格并右击，在弹出菜单中选择【设置单元格格式】菜单项，即可打开【设置单元格格式】对话框，如图14-2所示。在【字体】选项卡“字体”列表框中选择“华文宋体”选项；在“字形”列表框中选择“加粗”选项；在“字号”列表框中选择“16”选项，在“颜色”下拉列表中选择相应的颜色。 创建“用户权限管理系统说明”和“用户权限”工作表 具体操作步骤如下： 步骤3：选择【填充】选项卡，在“背景色”栏中选择需要填充的颜色，如图14-3所示。单击【确定】按钮，即可看到设置后的单元格字体和填充效果，如图14-4所示。 步骤4：分别合并A2:A6、A7:A11、B2:I2、B3:I3、B4:I4、B5:I5、B6:I6 以及B8:I10之间的单元格，合并后的效果如图14-5所示。 创建“用户权限管理系统说明”和“用户权限”工作表 具体操作步骤如下： 步骤5：为了表格的美观，需要使用自动换行功能。选中B2：I7之间单元格，在右击弹出菜单中选择【设置单元格格式】选项，即可打开【设置单元格格式】对话框，在【对齐】选项卡“水平对齐”下拉列表中选择“靠左”选项；在“文本控制”区域中勾选“自动换行”复选项，如图14-6所示。单击【确定】按钮，即可启动“自动换行”功能。 步骤6：设置其他已合并的单元格对齐方式。分别在A2:I10之间的单元格区域内输入有关“用户权限管理系统”的说明文字，如图14-7所示。 创建“用户权限管理系统说明”和“用户权限”工作表 具体操作步骤如下： 步骤7：设置A2:B6之间单元格的边框和填充属性，如图14-8所示。“用户权限管理系统说明”工作表就制作完成了，用户可以考虑添加一些图片和动画等内容。 步骤8：创建“用户权限”工作表，在“用户权限管理系统”工作薄中将“Sheet2”工作表重命名为“用户权限”；合并A1：E1之间的单元格，在其中输入文本“用户权限管理”，如图14-9所示。 创建“用户权限管理系统说明”和“用户权限”工作表 具体操作步骤如下： 步骤9：选中合并后的A1单元格，设置该元格的字体和填充属性，如图14-10所示。在B3:D10之间的单元格中分别输入已经注册用户的编号、级别、密码等信息，如图14-11所示。 步骤10：拖动鼠标选中B3:D30之间单元格，再采用设置边框的方法给这些单元格设置行高、填充背景色和边框，设置完毕后的效果如图14-12所示。 保护设计完成的用户权限管理系统 隐藏工程代码 锁定工程 锁定工程 具体的操作步骤如下： 步骤1：在【Microsoft Visual Basic for Application】主窗口可对工程进行保护，在【Microsoft Visual Basic for Application】主窗口中选择“VBAProject（用户权限管理系统）”工程，如图14-84所示。 步骤2：在右击弹出菜单中选择【VBAProject属性】菜单项，即可打开【VBA Project-工程属性】对话框，在【保护】选项卡“锁定工程”组合框勾选“查看时锁定工程”复选项，在“查看工程属性的密码”组合框中的“密码”和“确认密码”文本框输入相同的密码，这里输入的是123456，如图14-85所示。 锁定工程 具体的操作步骤如下： 步骤3：单击【确定】按钮，即可对该工程进行保护。再次打开“用户权限管理系统”工作薄，再打开【Microsoft Visual Basic for Application】主窗口，在其中看到“用户权限管理系统”工程已经被锁定，如图14-86所示。 步骤4：双击“VBAProject（用户权限管理系统）”工程，即可打开【VBAProject密码】对话框，如图14-87所示。如果在“密码”文本框中输入一个错误的密码，单击【确定】按钮，即可打开【无效的密码】提示框，如图14-88所示。 锁定工程 具体的操作步骤如下： 步骤5：只有在“密码”文本框中输入正确的密码（123）之后，单击【确定】按钮，方可在【Microsoft Visual Basic for Application】主窗口看到“用户权限管理系统”工程已经变成可用状态，如图14-89所示。 步骤6：如果想