excel保护部分单元格的方法

以前介绍excel保护单元格的文章已经有很多了，比如：《图解excel锁定单元格方法》等等。

本文介绍使用VBA代码来进行excel保护部分单元格的方法。

我们在需要进行excel保护部分单元格的工作表标签中，单击右键，选择“查看代码”，打开VBE编辑器，在编辑框输入下面的代码： 

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
   DimbAsBoolean   
   ForEachcInTarget                 '循环选定单元格
       Ifc<>""Then                  '如果单元格非空
           b=True
           ExitFor                     '退出循环
       EndIf
   Next   
   ActiveSheet.UnprotectPassword:="123" '撤消保护
   Ifb=TrueThen
       Target.Locked=True                  '锁定单元格
       ActiveSheet.ProtectPassword:="123"   '保护工作表，密码123
   EndIf
EndSub

然后返回工作表中，当我们在单元格输入数据，马上就会对有数据内容的单元格进行保护，当我们试图要修改编辑时，只有通过撤销保护才能修改。

通过上面代码实现的excel保护部分单元格，就只对有数据内容的单元格进行保护，而空单元格是不受任何保护的，也就是可以正常随意的输入内容。