excel中用vba实现按条件锁定单元格（vba锁定单元格和解锁单元格）

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Subtest()

Cells.Locked=True

Range("G5:G6,H5,G10:H13").Locked=False

ActiveSheet.Protect"12345"

EndSub

密码自己改，运行此宏（直接按F5）就可以了。