execl设置密码保护后透视表不能刷新是怎么回事?需要怎么解决?

2025-04-14 05:12:09
推荐回答(1个)
回答1:

加一个按钮,用vba代码刷新
1.撤销保护: ActiveSheet.Unprotect ("密码")

2.刷新某个数据透视表的语句

2.1ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh或者Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh
2.2刷新工作簿中所有数据透视表的语句
ActiveWorkbook.RefreshAll
3.保护工作表ActiveSheet.Protect Password:="密码"