1、Excel中单个工作表中保护部分单元格比较简单，只需要将不需要保护的工作表取消锁定，如下图所示，然后保护工作表即可
2、当Excel中有多个工作表时，如下图所示，现在需要将每个工作表的A1:A10区域保护起来，无法修改，其余区域不做保护，可以被修改。
3、按下Alt+F11，打开VBA编辑界面，在代码编辑区复制如下代码：
Sub 鱼木混猪()
For Each sh In Sheets
sh.Unprotect
Next '这三行代码是先取消工作表的保护，避免出错
For Each sh In Sheets
sh.Cells.Locked = False
sh.Range("A1:A10").Locked = True 'A1:A10为要保护的单元格区域，根据实际情况修改
sh.Protect 123 '设置保护密码，这里是123，根据实际修改；不需要密码就直接删除123
Next
End Sub
如下图所示：
4、按下F5运行代码，运行完成后，关闭VBA编辑界面，返回到Excel中，就可以看到每个工作表A1:A10区域就被保护起来了，无法修改其中的内容，而其余区域是可以正常修改的，如下图所示：
5、如果想要将这些已经被保护了的工作表撤掉保护，只需要将代码改为如下，重新运行一次即可。
Sub 鱼木混猪()
For Each sh In Sheets
sh.Unprotect 123 '保护密码是123，如果设置为其他的，这里需要相应更改
sh.Cells.Locked = True
Next
End Sub
