同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Subtest()
Cells.Locked=True
Range("G5:G6,H5,G10:H13").Locked=False
ActiveSheet.Protect"12345"
EndSub
密码自己改,运行此宏(直接按F5)就可以了。


- 相关评论
- 我要评论
-
300
300
297