请教工作表被保护后数据透视表无法刷新？

wydskycanxin · 发表于 2008-5-9 20:41

请教各位高手呵。本人把数据透视表与普通公式结合起来使用，因为想保护公式部份不被破坏，想保护工作表。但设置保护工作后（对数据透视功能选项做了选中），虽可进行数据透视表的操作，但无法更新数据了（当链接的源表数据发生更改后）。特请高手支招呵！

谢谢！

amolin · 发表于 2008-5-9 21:09

Seems only can be done by VBA code

Sub RefreshAll()
    Dim pt As PivotTable
    ActiveSheet.Unprotect Password:="Secret"
    For Each pt In ActiveSheet.PivotTables
        pt.PivotCache.Refresh
    Next pt
    ActiveSheet.Protect Password:="Secret"
End Sub

wydskycanxin · 发表于 2008-5-9 21:23

试下呵，谢谢！

wydskycanxin · 发表于 2008-5-9 22:27

好像不行呵，不知道还有没有方法？有点急呵！谢谢大家！

excel0913 · 发表于 2009-1-9 10:47

我也遇到这样的问题，有没有高手来支个招啊，谢谢了！！！

一丨丿丶乙 · 发表于 2009-4-12 13:04

原帖由 amolin 于 2008-5-9 21:09 发表
Seems only can be done by VBA codeSub RefreshAll()     Dim pt As  PivotTable
    ActiveSheet.Unprotect  Password:="Secret"     For Each pt In ...

这个办法可行的,但不要最上一行.

excel0913 · 发表于 2009-4-27 21:25

研究了一个晚上，终于搞清楚怎么弄了，附件一个!

密码是123

[ 本帖最后由 excel0913 于 2009-4-27 21:30 编辑 ]

likeylu · 发表于 2009-7-13 14:58

下载了不行那？？能否邮件一个？likeylu3002@hotmail.com，急用，谢谢大侠哦~~

亡者天下 · 发表于 2009-11-15 23:28

厉害哦！
高手！
我对VBA是一点都不懂，是我未来学习的对象！

lgcmeli · 发表于 2009-11-25 16:55

好厉害学习下啊。

		自动登录	找回密码
密码			免费注册

请教工作表被保护后数据透视表无法刷新？

评分

回复 7楼 excel0913 的帖子

回复 7楼 excel0913 的帖子