保护透视表

Question

我需要保护我的数据透视表，它也使用切片器。

我已使用以下代码取消保护工作表刷新数据透视表，然后再次保护。我相信我已经添加了我需要的所有标准，以便能够仍然使用切片机，但事实并非如此。我错过了什么？

Sub RefreshPivotTable()
'
' RefreshPivotTable Macro
'
    Dim DashboardSheet As Worksheet
    Set DashboardSheet = ThisWorkbook.Sheets("Dashboard")
    DashboardSheet.Unprotect
    Range("C7").Select
    ActiveSheet.PivotTables("Charger_Finder").PivotCache.Refresh
    DashboardSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True, AllowFiltering:=True
End Sub

Answer 1

如何做以下事情：

  

步骤1：单击切片器，按住CTRL键并选择另一个   切片机

     

第2步：右键单击切片机，然后选择尺寸＆amp;特性

     

步骤3：在“属性”下，“取消选中”“锁定”框，然后按“关闭”

     

步骤4：转到功能区菜单，然后选择Review＆gt;保护表

     

步骤5：“取消选中”选择锁定的单元格并“选中”选择   解锁细胞＆amp;使用数据透视表报告

     

步骤6：输入密码（可选），然后按OK

执行上述操作后，当您开始保护工作表时，应将切片器置于可用状态。