数据透视表保护后如何刷新

hhr023

各位老师好，我做了一个数据透视表，想把数据透视表保护起来以免被随意修改，但是如果保护后数据透视表就不能刷新了，我录制了一个刷新的宏
Sub Macro2()
'
' Macro2 Macro
' 宏由 xiangm 录制，时间: 2011-6-11
'

'
    Range("C6").Select
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
    Range("D9").Select
End Sub

请各位老师给我指导一下，能否加上语句使之能刷新保护了的数据透视表，保护密码为123

fankairong

楼主只是希望透视表仅仅可以刷新，别的布局什么的不能动吧？
Private Sub Worksheet_Activate()
On Error Resume Next

Dim pf As PivotField
With ActiveSheet.PivotTables(1)
  .PivotCache.Refresh
  .EnableWizard = False
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each pf In ActiveSheet.PivotTables(1).PivotFields
    With pf
    .DragToPage = False
    .DragToColumn = False
    .DragToRow = False
    .DragToData = False
    .DragToHide = False
    End With
  Next pf
End With
End Sub

hhr023

谢谢2楼老师的及时回复，我是对数据透视表所在的工作表进行了保护，设置了密码，是想平时只能对数据透视表进行筛选查询、刷新，但是不能更改。

hhr023

补充下，数据透视表是通过导入外部数据的方式生成的

TFQWFN

原帖由 fankairong 于 2011-6-13 09:44 发表
楼主只是希望透视表仅仅可以刷新，别的布局什么的不能动吧？
Private Sub Worksheet_Activate()
On Error Resume Next

Dim pf As PivotField
With ActiveSheet.PivotTables(1)
  .PivotCache.Refresh
  .Ena ...

正想要这个应用，谢谢！

278102659

fankairong 发表于 2011-6-13 09:44
楼主只是希望透视表仅仅可以刷新，别的布局什么的不能动吧？
Private Sub Worksheet_Activate()
On Error ...

老师，我按这个代码运行怎么不能刷新数据，是不是需要改动什么地方？？？其他的都我想要的（如布局不能变动，筛选项可以使用）

fankairong

278102659 发表于 2013-1-20 11:31
老师，我按这个代码运行怎么不能刷新数据，是不是需要改动什么地方？？？其他的都我想要的（如布局不能变 ...

加一句:
thisworksheet.pivottables(1).pivotcache.refresh即可

278102659

fankairong 发表于 2013-1-28 13:12
加一句:
thisworksheet.pivottables(1).pivotcache.refresh即可

请问老师，
1、thisworksheet.pivottables(1).pivotcache.refresh这句要放在代码哪个位置，
2、您的代码是不用录入工作表保护的密码，是吗？3、如是工作表保护后，透视表可以正常操作的其他功能，这个代码要怎么修改呢，
期待您的回复，万分感谢！