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

俺也是受了一肚子窝囊气，觉得以上的方法不尽己愿，故而花了一下午时间，决心自己学习VBA，自己编写代码来解决自己的实际问题！小有所成，拿出来与大家分享先！ 如下图，为第一种代码！此代码放在“ThisWorkbook“模块里面！

上述代码实现的功能是：无论您当前的工作薄有多少个工作表，无论您的工作表中有多少条数据，任何一个单元格的数据都无法修改！在不能修改数据的前提下，不弹出任何提示信息，仅将修改后的数据恢复到原来没有修改的状态，实现禁止修改的目的！ 在上图代码的基础上，加以分析再琢磨，就得出了如下图的代码了！此代码放在“ThisWorkbook“模块里面！

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