2023-12-25 17:07
admin同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Subtest()
Cells.Locked=True
Range("G5:G6,H5,G10:H13").Locked=False
ActiveSheet.Protect"12345"
EndSub
密码自己改，运行此宏（直接按F5）就可以了。
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇：返回栏目
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Subtest()
Cells.Locked=True
Range("G5:G6,H5,G10:H13").Locked=False
ActiveSheet.Protect"12345"
EndSub
密码自己改，运行此宏（直接按F5）就可以了。
300
300
300
300
300
300
300
298
297
297