如何解决运行 Excel 宏以刷新受密码保护的工作表中的数据透视表
我有一个名为 Inquiry 的密码保护工作表,其中包含一个允许用户刷新的数据透视表。刷新后,当工作表仍然受密码保护时,数据透视表仍然可以像用户展开/折叠整个字段一样使用。因此,我在 Sub testprotect 中将 AllowUsingPivotTables 设置为 True。下面是宏
Sub testprotect()
Worksheets("Enquiry").protect Password:=mypass,DrawingObjects:=True,Contents:=True,Scenarios:=True,_
UserInterfaceOnly:=True,AllowUsingPivotTables:=True
End Sub
Sub testunprotect()
Worksheets("Enquiry").unprotect "mypass"
End Sub
Sub testrefreshall()
ActiveWorkbook.RefreshAll
End Sub
Sub testeverything()
testunprotect
testrefreshall
testprotect
End Sub
我分别测试了 Sub testunprotect、testrefreshall 和 testprotect,它们都符合预期。但是当我在 Sub testeverything 中将它们组合在一起并运行它时,它给出了错误 - 当受保护的工作表包含另一个基于相同源数据的数据透视表时,无法执行该命令。有人可以帮忙吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。