分类：Excel会计与财务管理应用大全

我们在使用Excel 2016的过程中，有时Excel会阻止宏的应用，并且在保存时自动删除文件属性的个人信息。我们可以通过Excel 2016中的信任设置，更改相关的设置。

我们可以进行如下操作设置对宏的信任。

步骤01：单击“文件”菜单，选择“选项”，弹出“Excel选项”对话框。

步骤02：在弹出的“Excel选项”对话框中，选择“信任中心”选项，单击“信任中心设置”按钮，如图10-28所示。

步骤03：在弹出的“信任中心”对话框中，单击“宏设置”选项，单击选中“启用所有宏”单选按钮，再单击“确定”按钮，如图10-29所示。完成设置。

图10-28　选择“信任中心设置”

图10-29　选择“启用所有宏”

对于Excel保存时出现“请注意，您的文档的部分内容可能包含了文档检查器无法删除的个人信息”的对话框，我们可以通过以下操作来去除。

步骤01：单击“文件”菜单，选择“选项”，弹出“Excel选项”对话框。

步骤02：在弹出的“Excel选项”对话框中，选择“信任中心”选项，单击“信任中心设置”按钮，如图10-28所示。

步骤03：在弹出的“信任中心”对话框中，单击“隐私选项”选项，取消“保存时从文件属性中删除个人信息”复选框的选中，单击“确定”按钮，如图10-30所示。完成设置。

图10-30　取消删除个人信息设置

高手支招：隐藏VBA代码

对于所编辑的VBA代码，为了防止别人窃取或随意更改，用户可以对工程代码设置相应的密码，确保其安全性。具体操作步骤如下所示。

步骤01：打开Visual Basic编辑框，在左侧栏里选择要保护的工程，单击“工具”选项卡，在下拉菜单里选择“VBAProject属性”选项。

步骤02：在弹出的“VBAProject–工程属性”对话框里，切换到“保护”选项卡，在“查看工程属性的密码”中输入相应的密码内容，然后单击“确定”按钮，完成对目标工程密码的设定，如图10-31所示。

图10-31　设定VBA工程密码

在添加完现金日记账程序后，我们接着进行添加银行存款日记账程序，具体操作步骤如下所示。

步骤01：切换至“银行存款日记账”工作表，在“开发工具”里选择“Visual Basic编辑器”命令。

步骤02：在弹出的Visual basic编辑对话框中，输入如图10-27所示的代码。具体代码如下所示：

---

Private Sub WorkSheet_change(ByVal Target As Range)
Dim iRow, iCol, iRow_dn As Integer
Dim rng1, rngl2, rng, cel As Range
iRow = Target.Row
iCol = Target.Column
iRow_dn = [A65536].End(xlUp).Row        'A列的最后一行
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    If iRow >= 3 And iCol = 2 And Cells(iRow, iCol) <> "" Then
        Cells(iRow, 1) = Date        '在第一列填写日期
        ElseIf iRow >= 3 And iCol = 2 And Cells(iRow, iCol) = "" Then
                Range(Cells(iRow, 1), Cells(iRow, 5)).ClearContents
        ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow = iRow_dn Then
            Total1 = Application.WorkSheetFunction.Sum(Range("C3:C" & iRow))
            Total1 = Application.WorkSheetFunction.Sum(Range("D3:D" & iRow))
            Cells(iRow, 5) = Total1 - Total2        '在第5列运算
        ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow <> iRow_dn Then
            Set rng = Range("E" & iRow & " :E" & iRow_dn)
            For Each cel In rng
                Set rng1 = Range("C3:C" & cel.Row)
                Set rng2 = Range("D3:D" & cel.Row)
                Total1 = Application.WorkSheetFunction.Sum(rng1)
                Total2 = Application.WorkSheetFunction.Sum(rng2)
                cel.Value = Total1 - Total2
        Next cel
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

---

图10-27　输入银行存款日记账程序代码

步骤03：单击“保存”按钮，将输入的代码保存起来。此时，在银行存款日记账表中，当输入日期、摘要、存入、取出后，系统会自动计算余额。

在我们添加系统程序前，首先要添加日记账程序。具体操作步骤如下所示。

步骤01：切换至“现金日记账”工作表，在“开发工具”里，选择“Visual Basic编辑器”命令，如图10-25所示。

图10-25　选择“Visual Basic”编辑器

步骤02：在弹出的对话框中，输入如图10-26所示的代码。代码如下：

---

Private Sub WorkSheet_change(ByVal Target As Range)
Dim iRow, iCol, iRow_dn As Integer
Dim rng1, rngl2, rng, cel As Range
iRow = Target.Row
iCol = Target.Column
iRow_dn = [A65536].End(x1Up).Row  'A列的最后一行
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    If iRow > = 3 And iCol = 2 And Cells(iRow, iCol) <> ""  Then
        Cells (iRow, 1) = Date '在第一列填写日期
    ElseIf iRow > = 3 And iCol = 2 And Cells(iRow, iCol) = "" Then
        Range(Cells(iRow, 1), Cells(iRow, 5)).ClearContents
    ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow = iRow_dn Then
        Total1 = Application.WorkSheetFunction.Sum(Range("C4:C" & iRow))
        Total1 = Application.WorkSheetFunction.Sum(Range("D4:D" & iRow))
        Cells(iRow, 5) = Total1 - Total2 '在第5列运算
    ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow <> iRow_dn Then
        Set rng = Range("E" & iRow & " :E" & iRow_dn)
        For Each cel In rng
            Set rng1 = Range("C4:C" & cel.Row)
            Set rng2 = Range("D4:D" & cel.Row)
            Total1 = Application.WorkSheetFunction.Sum(rng1)
            Total2 = Application.WorkSheetFunction.Sum(rng2)
            cel.Value = Total1 - Total2
    Next cel
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

---

图10-26　插入现金日记账代码

输入以上代码后，我们可以控制数据的输入和余额的累计计算。如果需要打开“现金日记账”工作表中自动定位到需要输入数据的第一个单元格，还需要输入相关的定位代码。具体代码段如下所示：

---

Private Sub WorkSheet_Active()
ActiveSheet.[B65536].end(xlUp).Offset(1, 0) .Select '打开现金后自动
        '定位到需要输入数据的第一个单元格
End Sub

---

Excel中的宏，通俗来讲，就是实现单一功能或复杂功能的VBA代码的集合。使用宏功能，可以让我们在处理电子表格的时候，仅通过一步操作，就能实现需要通过多步才能完成的操作。

在我们之前创建按钮中，单击时，会弹出无法运行的对话框，这是因为指定的宏还没有创建，禁止访问。为按钮添加指定宏的具体操作步骤如下所示。

步骤01：切换至“主界面”工作表，右击“现金日记账”按钮，选择“指定宏”选项，在弹出的“指定宏”对话框的“位置”下拉列表框中选择“当前工作簿”，如图10-21所示。

图10-21　设置指定宏位置

步骤02：在“指定宏”对话框里单击“新建”按钮，弹出VBA代码框。在代码对话框中的开始语句和结束语句之间输入以下代码：Sheets（“现金日记账”）.Select，如图10-22所示。

图10-22　输入代码

步骤03：单击“保存”按钮，将代码保存起来，当我们再次单击“主界面”中的“现金日记账”按钮时，就会自动跳转到“现金日记账”工作表。

步骤04：为其他表格按钮添加相应的代码，如图10-23所示。全部代码如下所示：

---

Sub 按钮1_Click()
Sheets("现金日记账").Select
End Sub
Sub 按钮2_Click()
Sheets("银行存款日记账").Select
End Sub
Sub 按钮3_Click()
Sheets("主界面").Select
End Sub
Sub 按钮4_Click()
Sheets("主界面").Select
End Sub

---

图10-23　添加全部按钮

添加完毕后，单击“保存”按钮，这时，界面与表之间就可以进行切换操作了。

注意，在我们保存代码时，会弹出“无法在未启用宏的工作簿中保存以下功能”提示对话框，如果单击“是”按钮，那保存文件时会删除相应的宏内容，Excel这样设置导入目的是确保Excel面对未知宏的危险；如果单击“否”，则可以保存成带有宏的Excel.xlms文件。这里选择“否”按钮。

高手支招：隐藏工作表

在Excel 2016中，有些工作表不希望使用者查看和修改。我们可以利用Excel隐藏的功能，把工作表隐藏起来。具体操作步骤如下所示。

步骤01：切换到要保护的工作表，单击“开始”菜单，单击“单元格”按钮，选择“格式”选项。在下拉菜单里选择“隐藏和取消隐藏”中的“隐藏工作表”，即可完成对目标工作表的隐藏，如图10-24所示。

图10-24　隐藏工作表

步骤02：如果想取消隐藏工作表，只需再次执行步骤01操作即可。

设计完界面元素后，我们需要为界面添加ActiveX表单控件命令按钮。

ActiveX控件是插件程序，它们允许播放动画，或帮助执行任务，如在Microsoft Update安装安全更新，因此可以增强用户的浏览体验。ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型（COM）。在有目录和其他支持的网络中，COM变成了分布式COM（DCOM）。

利用这些命令按钮，可以进行管理系统程序的控制。具体操作步骤如下所示。

步骤01：在“主界面”工作表里，选择“开发工具”菜单，单击“插入”按钮，在表单控件里选择“按钮”选项，如图10-17所示。

图10-17　插入表单控件按钮

步骤02：拖动鼠标绘制按钮，此时弹出“指定宏”对话框，在对话框中的“位置”下拉列表框里选择“当前工作簿”，然后单击“确定”按钮，完成按钮的添加，如图10-18所示。

图10-18　设置指定宏

步骤03：右击创建的按钮，选择“编辑文字”选项，输入相应的按钮名称内容。用鼠标拖动按钮边框，调整合适的大小，如图10-19所示。

图10-19　添加“现金日记账”按钮

步骤04：利用相同的方法，添加“银行存款日记账”按钮，在“现金日记账”工作表里添加“返回”按钮，在“银行存款日记账”工作表里添加“返回”按钮，如图10-20所示。

图10-20　添加多个按钮

注意，宏名称和按钮名称要区分开来，宏名称是开发时的类对象名称，而按钮名称是用于显示的名称。