保护工作表会影响到VBA吗？

asd1220 · 发表于 2018-7-5 21:05

老师们好

我遇到了一个很神奇的问题，就是对工作表保护后之前没有问题的代码会出现诸如错误91、1004的提示

但是解除保护后就没有问题

请教各位老师，进行工作表保护会影响到VBA的使用吗？

lsc900707 · 发表于 2018-7-5 21:09

一点都不神奇，既然保护了工作表，代码读写该工作表的数据当然会报错！

liulang0808 · 发表于 2018-7-5 21:10

楼主自己测试已经发现了问题
开在代码的开始部分增加解除保护，在代码结束前保护

asd1220 · 发表于 2018-7-5 21:16

lsc900707 发表于 2018-7-5 21:09
一点都不神奇，既然保护了工作表，代码读写该工作表的数据当然会报错！

感谢老师的指点

但是我刚才尝试着把表格中需要用VBA写入的位置用“允许用户编辑区域”方式勾选出来，为什么还是会报错呢

asd1220 · 发表于 2018-7-5 21:21

liulang0808 发表于 2018-7-5 21:10
楼主自己测试已经发现了问题
开在代码的开始部分增加解除保护，在代码结束前保护

感谢老师点破玄机

weidd · 发表于 2018-7-20 17:39

liulang0808 发表于 2018-7-5 21:10
楼主自己测试已经发现了问题
开在代码的开始部分增加解除保护，在代码结束前保护

请问添加保护的代码感觉效率挺低的，我写的是 Sheets("提报表").Protect Password:="1234" ', AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True 用timer()测算，一行就要用0.3的时间，如果有多个表需要做的话，还是挺慢的请问如何解决呢

chis3 · 发表于 2018-7-20 17:47

讀取數據不用解保護
但要更改工作表任何東西必須解保護

weidd · 发表于 2018-7-20 17:58

恩就是要写数据所以在代码前取消了保护，最后恢复保护，仅仅是一行 Sheets("提报表").Protect Password:="1234" 就0.15 。这样表多了岂不很慢了

chis3 · 发表于 2018-7-20 18:02

weidd 发表于 2018-7-20 17:58
恩就是要写数据所以在代码前取消了保护，最后恢复保护，仅仅是一行 Sheets("提报表").Protect Password:= ...

沒辦法
而且一般改數據不會經常發生
更多的是源數據讀取再整理
這樣一次慢就由它去吧

weidd · 发表于 2018-7-20 18:11

我锁的就是要写数据的表呢原数据读取出来整理后不得放到别的表里么。因为我全部代码用时才0.1，改六个表保护得1，亏啊

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

[讨论] 保护工作表会影响到VBA吗？

评分

评分