禁止修改工作薄所有工作表单元格数据VBA源代码
关于禁止修改工作表数据的方法,俺已在很多地方看到过,并且已学会!
但,终究觉得不适合自己的需求,有很多介绍的方法,说的都是如何加密工作表,加密数据区域,然后再怎么设置密码等,使用此方法来禁止修改任何数据!
以上的这种方法,针对的仅仅是当前的工作表而已,如果您的工作薄有相当多的工作表,您要禁止别人修改数据,你每个工作表都要手动设置吗?如果没啥好办法,可以手动完全设置看看瞧,工作表一多,人都烦了,哪里有心情再设置哈!
操作方法
- 01
俺也是受了一肚子窝囊气,觉得以上的方法不尽己愿,故而花了一下午时间,决心自己学习VBA,自己编写代码来解决自己的实际问题!小有所成,拿出来与大家分享先! 如下图,为第一种代码!此代码放在“ThisWorkbook“模块里面!
- 02
上述代码实现的功能是:无论您当前的工作薄有多少个工作表,无论您的工作表中有多少条数据,任何一个单元格的数据都无法修改!在不能修改数据的前提下,不弹出任何提示信息,仅将修改后的数据恢复到原来没有修改的状态,实现禁止修改的目的! 在上图代码的基础上,加以分析再琢磨,就得出了如下图的代码了!此代码放在“ThisWorkbook“模块里面!
- 03
上述代码实现的功能是:无论您当前的工作薄有多少个工作表,无论您的工作表中有多少条数据,如果要修改被限制的列的数据,则需要输入密码,密码正确则可以修改,密码错误则无法修改!在不能修改数据的前提下,不弹出任何提示信息,仅将修改后的数据恢复到原来没有修改的状态,实现禁止修改列数据的目的!
赞 (0)