Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2061|回复: 5

[已解决]工作簿隐藏打开后的问题

[复制链接]
发表于 2013-7-7 22:02 | 显示全部楼层 |阅读模式
有2个工作簿。
工作簿1为活动的工作簿。
工作簿1要对工作簿2进行隐藏打开采集他的数据。
由于工作簿2有
Private Sub Workbook_Open()
程序与工作簿一冲突。
请问用什么代码来禁止工作簿2的代码运行

最佳答案
2013-7-8 00:31
研究研究 发表于 2013-7-7 10:00
经测试  与屏幕更新无关


估计4楼本来的意思是对的但可能打错字了,应该是Application.EnableEvents而不是Application.ScreenUpdating
  1. Application.EnableEvents = False

  2. '从这里打开"工作簿二"等代码

  3. Application.EnableEvents = True
复制代码
 楼主| 发表于 2013-7-7 22:20 | 显示全部楼层
d.gif

从这个图上可以看出自动执行时无法关闭被隐藏打开的工作簿
回复

使用道具 举报

 楼主| 发表于 2013-7-7 22:23 | 显示全部楼层
e.gif

从这个图上可以看到  当手动执行宏时可以关闭被隐藏打开的工作簿



请问路过的高手   怎么办
回复

使用道具 举报

发表于 2013-7-7 22:42 | 显示全部楼层
sub ????()
application.screenupdating=false
...
...
application.screenupdating=true
end sub
回复

使用道具 举报

 楼主| 发表于 2013-7-7 23:00 | 显示全部楼层
经测试  与屏幕更新无关


就是因为
被隐藏打开的工作簿有个 Private Sub Workbook_Open() 事件  这个事件运行时间由点长


删掉这个事件测试时OK的


但只是测试,这个Open事件不能删  要用到的
回复

使用道具 举报

发表于 2013-7-8 00:31 | 显示全部楼层    本楼为最佳答案   
研究研究 发表于 2013-7-7 10:00
经测试  与屏幕更新无关


估计4楼本来的意思是对的但可能打错字了,应该是Application.EnableEvents而不是Application.ScreenUpdating
  1. Application.EnableEvents = False

  2. '从这里打开"工作簿二"等代码

  3. Application.EnableEvents = True
复制代码
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-3 01:19 , Processed in 0.270849 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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