同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Subtest()Cells.Locked=TrueRange("G5:G6,H5,G10:H13").Locked=FalseActiveSheet.Protect"12345"EndSub密码自己改,运行此宏(直接按F5)就可以了。 顶一下 (0) 0% 踩一下 (0) 0% 相关评论 我要评论 马上提交