作者：绿色风
分类：
时间：2022-08-18
浏览：251
楼主
水星钓鱼 |
Q：在工作中，经常需要对自己做的报表的一些格式固定，其中一个就是不允许旁人更改所做的筛选。
如下图所示：
如何取消各字段的下拉筛选按钮，使旁人不能对其进行筛选。
A：可以编写VBA代码，同时对代码进行加密保护。
在数据透视表所在的工作表模块中输入以下代码：
- Sub xyf()
- Dim oPT As PivotTable
- Dim oPF As PivotField
- Set oPT = Me.PivotTables(1)
- For Each oPF In oPT.PivotFields
- oPF.EnableItemSelection = False
- Next oPF
- End Sub
按F5执行代码后的结果如下图所示：
这一技巧在很多场合都有很实用的价值。
如根据页字段而进行的报表筛选，在每个页字段项数据透视表中，不希望其它人看到其它页字段项的内容时可以使用此技巧。
|
2楼
亡者天下 |
这个应该可以通过保护工作表的自动筛选选项实现吧！
|
3楼
霖少 |
试一下楼上所说的方式 |
4楼
霖少 |
进行表格保护之后就可以锁定了，只能进行选定操作 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一