可通过VBA宏、分组操作或保护工作簿结构三种方式批量保护Excel工作表:一、运行VBA宏自动为所有工作表设同一密码;二、Ctrl多选工作表后统一设置保护;三、启用“保护工作簿结构”防止工作表被增删改。

如果您需要在Excel中对多个工作表统一设置密码保护,避免逐个手动操作耗时且易遗漏,则可通过VBA宏或分组操作实现批量保护。以下是具体执行步骤:
一、使用VBA宏批量保护所有工作表
该方法通过运行一段VBA代码,自动为当前工作簿中所有工作表设置相同密码,适用于工作表数量较多、需统一管控的场景。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧“工程资源管理器”中,双击当前工作簿名称(如 VBAProject (Book1.xlsm))下的 ThisWorkbook。
3、在右侧代码窗口中粘贴以下代码:
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim pwd As String
pwd = InputBox("请输入保护密码:")
If pwd = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:=pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws
MsgBox "所有工作表已保护完成!"
End Sub
4、按 F5 运行宏,输入密码后点击确定。
二、手动分组后统一设置保护
该方法不依赖宏,适用于禁用VBA环境或仅需保护部分工作表的情况,通过选中多个工作表进行同步操作。
1、在工作表标签栏处,按住Ctrl键并依次单击需保护的工作表标签,实现多表同时选中。
2、右键任一被选中的标签,在弹出菜单中选择 保护工作表。
3、在弹出对话框中输入密码,并勾选所需保护选项(如“选定锁定单元格”“选定未锁定的单元格”等)。
4、点击 确定,再次输入密码确认。
三、使用Excel内置“保护工作簿结构”功能
该操作可防止用户新增、删除、重命名或移动工作表,虽不直接保护单个工作表内容,但与工作表级保护配合使用能增强整体安全性。
1、点击 审阅 选项卡。
2、在“保护”组中点击 保护工作簿。
3、勾选 结构,输入密码并确认。
4、此时所有工作表标签将无法被右键操作,包括拖动、复制、删除等行为均被禁止。










