Dzwebs.Net

撰写电脑技术杂文十余年

禁止修改Excel当前工作薄所有工作表单元格数据的VBA源代码

Admin | 2008-8-4 20:17:28 | 被阅次数 | 15565

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  关于禁止修改工作表数据的方法,俺已在很多地方看到过,并且已学会!

  但,终究觉得不适合自己的需求,有很多介绍的方法,说的都是如何加密工作表,加密数据区域,然后再怎么设置密码等,使用此方法来禁止修改任何数据!

  以上的这种方法,针对的仅仅是当前的工作表而已,如果您的工作薄有相当多的工作表,您要禁止别人修改数据,你每个工作表都要手动设置吗?如果没啥好办法,可以手动完全设置看看瞧,工作表一多,人都烦了,哪里有心情再设置哈!

  俺也是受了一肚子窝囊气,觉得以上的方法不尽己愿,故而花了一下午时间,决心自己学习VBA,自己编写代码来解决自己的实际问题!小有所成,拿出来与大家分享先!

  如下图,为第一种代码!此代码放在“ThisWorkbook“模块里面!

  上述代码实现的功能是:无论您当前的工作薄有多少个工作表,无论您的工作表中有多少条数据,任何一个单元格的数据都无法修改!在不能修改数据的前提下,不弹出任何提示信息,仅将修改后的数据恢复到原来没有修改的状态,实现禁止修改的目的!

  在上图代码的基础上,加以分析再琢磨,就得出了如下图的代码了!此代码放在“ThisWorkbook“模块里面!

  上述代码实现的功能是:无论您当前的工作薄有多少个工作表,无论您的工作表中有多少条数据,如果要修改被限制的列的数据,则需要输入密码,密码正确则可以修改,密码错误则无法修改!在不能修改数据的前提下,不弹出任何提示信息,仅将修改后的数据恢复到原来没有修改的状态,实现禁止修改列数据的目的!


该杂文来自: Excel杂文

上一篇:在Excel中如何按一定要求使用VBA批量修改数据量非

下一篇:详细介绍Excel中InputBox()函数的应用

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计