Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 192|回复: 9

[已解决] 数据透视表工具

[复制链接]
发表于 2019-12-5 15:43 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
各位大师您们好!
有个问题困扰了我很久了,特请教大师帮助。
我想屏蔽“数据透视表工具”,如果要用XML,或者别的好方法,请提供具体语句。
谢谢!
数据透视表.png
数据透视表.rar (117.8 KB, 下载次数: 3)
发表于 2019-12-5 16:23 | 显示全部楼层
怎样算是屏蔽了“数据透视表工具”?
回复

使用道具 举报

 楼主| 发表于 2019-12-5 16:34 | 显示全部楼层
爱疯 发表于 2019-12-5 16:23
怎样算是屏蔽了“数据透视表工具”?

版主您好!
是的,我就是想要把数据透视表工具屏蔽掉的,目的是不想让别人更改数据透视表字段。
或是屏蔽分析与设计也可,请问可有方法实现?
回复

使用道具 举报

发表于 2019-12-5 16:39 | 显示全部楼层

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 17 And Target.Column < 9 Then [a17].Select
End Sub


数据透视表2.rar (125.52 KB, 下载次数: 2)

评分

参与人数 1学分 +2 收起 理由
3023366516 + 2 谢谢超级版主,谢谢您!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-5 17:06 | 显示全部楼层
爱疯 发表于 2019-12-5 16:39
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 17 And Target.Co ...

谢谢超级版主!
这个比我的方法好多了,看来我想要屏蔽"数据透视表工具"是行不通的了。
谢谢您!
回复

使用道具 举报

发表于 2019-12-5 17:23 | 显示全部楼层
这是偷懒的简单处理方式,很多朋友都会
回复

使用道具 举报

 楼主| 发表于 2019-12-5 19:26 | 显示全部楼层
爱疯 发表于 2019-12-5 17:23
这是偷懒的简单处理方式,很多朋友都会

您好版主!
是不是还有更好的方法?
如果还有更好的方法,麻烦您有时间后在帮我想想办法更完美一点。
我以前是鼠标选中数据透视表标题,代码保护工作表勾选”数据透视表透视图",隐藏全部选项卡功能区。
鼠标选中除数据透视表标题外的其他单元格,代码保护工作表取消勾选“数据透视表透视图",恢复全部选项卡功能区,
这样会出现突然没了功能区会把人吓一跳。
我占时用您上面那个方法比较好。
谢谢您!




回复

使用道具 举报

发表于 2019-12-6 08:30 | 显示全部楼层
本帖最后由 爱疯 于 2019-12-6 08:31 编辑

如果用4楼方式,就不能再操作透视表了,也就说只是看到了一个透视表结果而已
既然如此,干脆只显示出透视表的截图,行不行?
回复

使用道具 举报

发表于 2019-12-6 09:07 | 显示全部楼层
wrerrr.gif


照相机可以吗

评分

参与人数 1学分 +2 收起 理由
3023366516 + 2 学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-6 15:23 | 显示全部楼层

您好版主,辛苦您了!
我就用上面那个代码算了,禁止选中数据透视表单元格,还好这个不会影响数据透视表的筛选功能,只是不能选择部分数据区域打印。
我把行号和列标与鼠标停放的参数变量赋值,还能通用。
谢谢您!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-1-26 22:14 , Processed in 0.046800 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表