透视表所在工作表保护以后,录制的宏命令不以运行

UDBAUGEF · 发表于 2011-2-21 15:52

请各位老师帮个忙,这种情况该如何处理

佛山小老鼠 · 发表于 2011-2-21 15:57

解除再录制

UDBAUGEF · 发表于 2011-2-21 16:13

可是我把工作表加密以后,没加密以前录制的宏就会运行出错

佛山小老鼠 · 发表于 2011-2-21 16:52

你的宏要修改,你要考虑有保护的情况,加上一句ON ERROR RESUME NEXT 看看

[ 本帖最后由佛山小老鼠于 2011-2-21 16:54 编辑 ]

UDBAUGEF · 发表于 2011-2-22 08:05

谢谢老师,能把那附件重新录制好的宏传上来看看吗,因为我加上ON ERROR RESUME NEXT 也不行

SSJJWW · 发表于 2011-2-22 09:05

代码如下
SUB 刷新透视表()
Sheet2.Unprotect '解除保护
Range("E9").Select
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
Sheet2.Protect contents:=True '加保护
END SUB
即可

UDBAUGEF · 发表于 2011-2-23 12:38

谢谢老师！

UDBAUGEF · 发表于 2011-2-23 18:16

老师您好！问题好了，但是因为密码是空，别人可以取消工作表的保护，请问要加上我自己的密码该怎么弄？比如密码123456

SSJJWW · 发表于 2011-2-24 08:07

将6楼代码修改如下即可
SUB  刷新透视表()
   Sheet2.Unprotect ("123456")    ''解除带有保护密码123456的保护
Range("E9").Select
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
   Sheet2.Protect "123456"    '加密码保护123456
END SUB

UDBAUGEF · 发表于 2011-2-24 19:24

谢谢老师！

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

透视表所在工作表保护以后,录制的宏命令不以运行

老师能说详细一点吗?

透视表所在工作表保护以后,录制的宏命令不以运行

回复 6楼 SSJJWW 的帖子