Ecel VBA编程 典型实例——为财务报表设计保护锁.docxVIP

Excel VBA 编程 典型实例——为财务报表设计保护锁 在财务处理过程中，有些报表是不对外公开的，此时需要财务人员做好相应的保密工作。下面通过对财务报表设计登陆界面，从而限制了其他用户的登陆，这样对于不知道密码的用户将无法对财务报表进行查看或修改。 创建创建创建输入练习要点 创建 创建 创建 输入 控件的应用 窗体的应用 操作步骤： 启动 Excel 2007 组件，重命名 Sheet1 工作表标签为“采购明细表”名称。然后，在该工作表中，创建如图 15-15 所示的“采购”表格。 图 15-15 创建“采购”表格。 重命名 Sheet2 工作表标签为“销售明细表”名称。然后，在该工作表中，创建如图 15-16 所示的“销售”表格。 图 15-16 创建“销售”表格 重命名 Sheet3 工作表标签为“存货明细表”名称。然后，在该工作表中创建如图15-17所示的|“存货”表格。 图 15-17 创建“存货”表格 新建一张工作表，重命名其工作表标签为“用户及密码”名称。然后，在该工作表中 ，输入如图 15-18 所示的信息。 图 15-18 输入“用户及密码”信息 单击工作表标签后面的【新建工作表】按钮 单击工作表标签后面的【新建工作表】按钮 ，即可新建一张工作表。 执行设置绘制选择 执行 设置 绘制 选择 绘制 选择 提 示 新建一张工作表，重命名工作表标签为“主界面”文字。然后，右击该工作表标签， 执行【移动或复制工作表】命令，在弹出的对话框中，选择【下列选定工作表之前】栏中的“采购明细表”工作表，如图 15-19 所示。 图 15-19 移动工作表 在 B2 至 G2 单元格区域中，创建“财务报表管理”标题文字。然后，选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，单击【分组框（窗体控件）】按钮，并在工作表中，绘制该控件按钮，如图15-20 所示。 图 15-20 绘制“分组框 1”控件按钮 重命名“分组框1”的名称为“选择需要打开的工作表”。然后，单击【表单控件】栏中的【选项按钮（窗体控件）】按钮，并在工作表中绘制该按钮，如图15-21 所示。 图 15-21 绘制“选项按钮”控件 选择工作表中的“分组框”控件，并将光标置于文字中间。然后，输入所需的文 选择工作表中的“分组框”控件，并将光标置于文字中间。然后，输入所需的文 字即可重命令控件。 提 示 重命名“选项按钮 2”为“采购明细表”名称。然后，运用相同的方法，绘制“销售明细表”和“存货明细表”选项按钮，如图15-22 所示。 绘制设置设置 绘制 设置 设置 图 15-22 绘制“选项按钮”控件 在 A1 单元格中，输入数字1。然后，选择“采购明细表”选项控件，并在【设置对象格式】对话框中，设置【值】为“已选择”；【单元格链接】为“$A$1”，如图 15-23 所示。 图 15-14 设置对象格式 右击“采购明细表”选项控件，执行【设置控件格式】命令，即可打开【设置对 右击“采购明细表”选项控件，执行【设置控件格式】命令，即可打开【设置对 象格式】对话框。 提 示 运用相同的方法，为其他两个“选项按钮”控件设置【单元格链接】均为“ $A$1”。然后，在【设置单元格格式】对话框中，选择【自定义】选项，并在【类型】栏中，输入3 个分号，如图 15-23 所示。 图 15-23 隐藏单元格数据 单击【数字】组中的【对话框启动器】按钮，即可打开【设置单元格格式】对话 单击【数字】组中的【对话框启动器】按钮，即可打开【设置单元格格式】对话 框。 提 示 绘制一个“按钮（窗体控件）”按钮，在弹出的【指定宏】对话框中，输入【宏名】为“打开明细表”文字。然后，单击【新建】按钮，如图15-24 所示。 指定宏输入 指定宏 输入 代码 图 15-24 创建按钮并指定宏 单击【表单控件】组中的【按钮（窗体控件 单击【表单控件】组中的【按钮（窗体控件）】按钮，即可在工作表中绘制该“按 钮”控件。 提 示 在弹出的模块代码窗口中，输入如图15-25 所示的代码。 图 15-25 输入代码 其中，输入的代码如下： Sub Sub 打开明细表() If Sheets( 主 界 面 ).[A1] = 1 Then ActiveWorkbook.Unprotect Password:=123456 Sheets(采购明细表).Visible = True Sheets(销售明细表).Visible = False Sheets(存货明细表).Visible = False Sheets(采购明细表).Activate End If If Sheets( 主 界 面 ).[A1] = 2 Then ActiveWorkbook.Unprotect Password:=123456