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

用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 在 MicrosoftVisualBasicforApplication 主窗口可对工程进行保护 在 MicrosoftVisualBasicforApplication 主窗口中选择 VBAProject 用户权限管理系统 工程 如图14 84所示 步骤2 在右击弹出菜单中选择 VBAProject属性 菜单项 即可打开 VBAProject 工程属性 对话框 在 保护 选项卡 锁定工程 组合框勾选 查看时锁定工程 复选项 在 查看工程属性的密码 组合框中的 密码 和 确认密码 文本框输入相同的密码 这里输入的是123456 如图14 85所示 锁定工程 具体的操作步骤如下 步骤3 单击 确定 按钮 即可对该工程进行保护 再次打开 用户权限管理系统 工作薄 再打开 MicrosoftVisualBasicforApplication 主窗口 在其中看到 用户权限管理系统 工程已经被锁定 如图14 86所示 步骤4 双击 VBAProject 用户权限管理系统 工程 即可打开 VBAProject密码 对话框 如图14 87所示 如果在 密码 文本框中输入一个错误的密码 单击 确定 按钮 即可打开 无效的密码 提示框 如图14 88所示 锁定工程 具体的操作步骤如下 步骤5 只有在 密码 文本框中输入正确的密码 123 之后 单击 确定 按钮 方可在 MicrosoftVisualBasicforApplication 主窗口看到 用户权限管理系统 工程已经变成可用状态 如图14 89所示 步骤6 如果想取消锁定工程 则需在 VBAProject 工程属性 对话框取消勾选 查看时锁定工程 复选框 单击 确定 按钮 即可成功取消锁定工程 应用用户权限管理系统 验证用户权限管理系统1 未注册用户2 一般用户3 高级用户4 管理员将用户权限管理系统保存为模板 管理员 具体的操作步骤如下 步骤1 在 登录窗口 对话框中的 用户名 下拉列表中选择一个管理员用户 例如 Administrator 并在 密码 文本框中输入 Administrator 如图14 106所示 步骤2 单击 登录 按钮 即可自动关闭 登录窗口 对话框并进入用户权限管理系统 工作薄中 在 用户权限 工作表中可看到设置的用户权限 在其中可看到所有已注册的用户信息 如图14 107所示 管理员 具体的操作步骤如下 步骤3 单击 更改用户权限 按钮 即可打开 更改用户权限 对话框 如图14 108所示 在 请输入用户名 下拉列表中选择 SL04012 选项 此时在 用户名 和 当前用户级别 文本框中分别显示该用户的用户名和当前级别 如图14 109所示 步骤4 在 更改用户级别为 下拉列表中选择 高级用户 选项 单击 确定 按钮 即可打开 用户权限更改成功 对话框 如图14 110所示 管理员 具体的操作步骤如下 步骤5 在 更改用户权限 对话框中单击 取消 按钮 即可取消对该用户信息的选择 看到 用户名 和 当前用户级别 文本框中信息已经被清空 如图14 111所示 步骤6 在 更改用户权限 对话框中单击 取消 按钮 即可返回 用户权限 工作表中 在其中看到 SL04012 用户的级别已经变为 高级用户 如图14 112所示 步骤7 将 SL04011 用户级别更改为 管理员 如图14 113所示 管理员可提升或降低每个注册用户的用户级别 管理员还可以在 用户资料表 工作表修改用户的信息 专家课堂 常见问题与解答 点拨1 在用户权限管理系统设计完成后 为什么还要隐藏工程代码和锁定工程 解答 之所以要进行隐藏工程代码和锁定工程操作 是为避免用户通过 登录窗口 进入工作薄 单击 代码 组中的 VisualBasic 按钮 在打开窗口中可对创建的用户权限管理系统进行修改 点拨2 在创建 注册 窗体后 为