发布网友 发布时间:2022-04-23 15:16
共1个回答
热心网友 时间:2023-10-06 04:06
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码: Sub test() Dim i As Integer For i = 1 To InputBox("请输入锁定到第几张表", "Hi") Sheets(i).Protect "1a2b3c4" Next i End Sub 回到Excel,点菜单的工具,宏,选中test,选项,快捷键定义为Ctrl+i,关闭该窗口。以后你想锁定第1到第15张工作表,只需按Ctrl+i,输入15,就可以了。密码请自己改。 最后的追问不知道你的具体意图。选中第一张表,按着Shift键选中第5张表,选择单元格B3,填充红色。选择任意其他表格,回去看你的1到5张表,所有的B3都是红色。