08 Trouble shooting

优质

小牛编辑

125浏览

2023-12-01

8.1 调试经验 Excel点击保存时总是弹出隐私信息警告（Privacy Warning:this document contains macros...）的解决方法

警告信息：

Privacy Warning:this document contains macros, ActiveX controls, XML expansion pack information or web components. these may include personal information that cannot be removed by the document Inspector.

菜单依次点击：
File → Options → Trust Center → Trust Center Settings → Privacy Options 取消勾选(Uncheck) "Remove personal information from file properties on save" 选项

8.2 清除Excel数据透视表中过滤器缓存（旧项目）

如下图所示，根据数据范围创建数据透视表时，从源范围中删除数据后，即使刷新数据透视表，旧项目仍将存在于数据透视表的下拉菜单中。如果要从数据透视表的下拉菜单中删除所有旧项目，可参照如下两种方法：

1. 通过更改选项来清除数据透视表中的过滤器缓存（旧项目）

step1: 右键单击数据透视表中的任何单元格，然后单击数据透视表选项从上下文菜单。看截图：

step2: 在里面数据透视表选项对话框中，单击数据标签，选择没有来自 每个字段要保留的项目数量 下拉列表，然后单击 OK 按钮。

step3: 右键单击“数据透视表”单元格，然后单击刷新从右键菜单。看截图：

然后你可以看到旧的项目从数据透视表的下拉菜单中删除，如下图所示。

2. 使用VBA代码清除所有数据透视表中的过滤器缓存（旧项目）

在项目窗格打开 ThisWorkbook（Code） 窗口，然后将下面的VBA代码复制并粘贴到窗口中。

Private Sub Workbook_Open()
    Dim xPt As PivotTable
    Dim xWs As Worksheet
    Dim xPc As PivotCache
    Application.ScreenUpdating = False
    For Each xWs In ActiveWorkbook.Worksheets
        For Each xPt In xWs.PivotTables
            xPt.PivotCache.MissingItemsLimit = xlMissingItemsNone
        Next xPt
    Next xWs
    For Each xPc In ActiveWorkbook.PivotCaches
        On Error Resume Next
        xPc.Refresh
    Next xPc
    Application.ScreenUpdating = True
End Sub

按 F5 键来运行代码，然后从活动工作簿中的所有数据透视表的下拉菜单中立即删除旧项目。

8.3 解决办法：The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros.

错误现象： Excel2016（365）运行macro宏时，弹出标题警告↓

解决办法：
step1：先确认Excel的设置是否正确依次点击 File >> Options >> Trust Center >> Trust Center Settings >> Macro Settings 按照如下图所示设置：

step2：确认自己机器的安全级别
一般如果按照step1设置后再次运行macro宏依然弹出警告，另一种情况就是你自己的机器（远程PC/Server/VDI等）自身的安全级别过高造成的。
打开浏览器依次点击 Tools >> Internet options >> Security >> Customer level... 将安全级别从 高(High) 改成 中(Medium)。