Note: The other languages of the website are Google-translated. Back to English

如何在Excel中一次保护多个工作表?

假设您有一个包含多个工作表的工作簿,现在您需要保护所有工作表或某些特定的工作表,通常在Excel中,您只能使用“保护工作表”功能来逐一保护工作表,但是这种方法既繁琐又费时如果需要保护大量纸张,则很费时间。 如何在Excel中快速轻松地一次保护多个工作表?

使用VBA代码一次保护所有工作表

使用Kutools for Excel一次保护多个工作表

使用kutools for Excel一次取消保护多个工作表


箭头蓝色右气泡 使用VBA代码一次保护所有工作表

使用以下VBA代码,您可以使用相同的密码一次保护活动工作簿的所有图纸,方法是:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.

VBA代码:一次保护工作簿中的所有工作表:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3。 然后按 F5 键运行代码,并在提示框中输入受保护工作表的密码,请参见屏幕截图:

文档保护多页 1-1

4。 点击 OK,然后再次输入密码以确认密码。

文档保护多页 2-2

5。 然后点击 OK,并且所有工作表均已使用相同的密码保护。


箭头蓝色右气泡 使用Kutools for Excel一次保护多个工作表

有时,您不想保护工作簿中的所有工作表,而只想保护某些特定的工作表,在这种情况下,上面的代码将无法工作。 但是随着 Kutools for Excel保护工作表 实用程序,您可以快速轻松地保护所有工作表和特定工作表。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在60天内免费试用

安装后 Kutools for Excel,请执行以下步骤:

1。 点击 Kutools 加 > 保护工作表,请参见屏幕截图:

2。 在 保护工作表 对话框中,选择要保护的图纸。 (默认情况下,将检查当前工作簿中的所有工作表。)请参见屏幕截图:

文档保护多页 4-4

3。 并点击 OK,然后在“保护工作表”对话框中键入并确认密码。 看截图:

文档保护多页 5-5

4。 然后点击 OK,所选工作表已受到保护。

单击“保护工作表”以了解有关此功能的更多信息。


箭头蓝色右气泡 使用kutools for Excel一次取消保护多个工作表

您如何才能同时取消保护工作簿中的多个受保护工作表? 当然, Kutools for Excel 还提供了 取消保护工作表 实用程序,您可以立即解除保护。

请执行以下步骤:

1。 打开您的工作簿,其中包含受保护的工作表。

2。 然后点击 Kutools 加 > 取消保护工作表,请参见屏幕截图:

3。 在 取消保护工作表 对话框中,将受保护的工作表列出到列表框中,然后单击 Ok 按钮,请参见屏幕截图:

文档保护多页 7-7

4。 然后一个 取消保护工作表 弹出对话框,提醒您输入为保护工作表而创建的密码,请参见屏幕截图:

文档保护多页 8-8

5。 输入密码后,单击 Ok,列表框中的所有选中的工作表均未受到保护。

请注意: 工作表必须具有相同的密码。

要了解有关此Unprotect Worksheet功能的更多信息。

立即下载并免费试用Excel的Kutools!


箭头蓝色右气泡 演示:使用Kutools for Excel一次保护或取消保护所有工作表

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

相关文章:

如何在Excel中一次取消保护多个工作表?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (21)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
太好了——那么如何一次性解除对它们的保护呢? 我是业余爱好者,所以我需要更多信息。
该评论由网站上的主持人最小化
[quote] 太好了——那么如何一次性解除对它们的保护呢? 我是业余爱好者,所以我需要更多信息。克里斯汀·祖甘[/quote] :-) 您可以轻松地取消保护它们 http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
该评论由网站上的主持人最小化
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets .Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "我认为您有一些工作表已受到保护。请取消保护运行此宏的所有工作表 B4。" 结束子
该评论由网站上的主持人最小化
非常感谢 :-)
该评论由网站上的主持人最小化
正如克里斯汀所说,你如何一次解除对它们的保护?
该评论由网站上的主持人最小化
那么,如果没有 kutools,我该如何解除保护?
该评论由网站上的主持人最小化
[quote]那么,如果没有 kutools,我该如何解除保护?由 cz[/quote] 您可以在没有 Kutools for Excel 的情况下取消保护工作表。 您只需右键单击要取消保护的工作表选项卡,然后单击取消保护工作表命令,然后输入密码。 :-)
该评论由网站上的主持人最小化
当我输入代码时,它会出现“运行时错误 1004??以黄色突出显示以下内容...... s.Protect Password:=pass
该评论由网站上的主持人最小化
我也突然出现 1004 错误。 我已经使用宏几个月了,但现在它不会运行。
该评论由网站上的主持人最小化
你好,我也遇到了这个问题。 事实证明,如果您在工作簿中选择了所有工作表,则它无法运行。 尝试只选择一张纸然后运行。
该评论由网站上的主持人最小化
我突然遇到错误 1004 问题。 几个月来一直在使用宏,现在它随机失败。
该评论由网站上的主持人最小化
我也突然出现 1004 错误。 有人找到解决方案吗?
该评论由网站上的主持人最小化
当我激活这个 VBA 时, 超链接 不起作用。 我怎样才能让他们工作? tnx :)
该评论由网站上的主持人最小化
谢谢! 这太棒了,我什至能够修改 VBA 代码,以便我可以一次取消保护所有工作表! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "我认为您有一些工作表已受到保护。请取消保护运行此宏的所有工作表 B4。" 结束子
该评论由网站上的主持人最小化
嘿,我需要一些帮助,上面的代码很有帮助,但是它锁定了排序(自动过滤器也是如此)你能提供解决这个问题的代码以及它的插入位置吗? 先感谢您。
该评论由网站上的主持人最小化
我的 Excel 2013 工作簿中有图表选项卡和工作表。 上面的 VBA 编码用于保护工作表,但不适用于单独的图表选项卡。 如何密码保护我的工作簿中的多个图表选项卡和多个工作表? 谢谢!
该评论由网站上的主持人最小化
嗨,我现在使用了此代码,但它不接受我的密码以返回我的电子表格!
该评论由网站上的主持人最小化
如何使用 VBA 方法屏蔽密码? 我无法通过 google 或 F1 帮助文件找到此信息。 提前致谢!
该评论由网站上的主持人最小化
感谢神奇的完整工具一次保护和取消保护所有工作表。 请指导我,我可以一次取消保护工作簿中的所有工作表,但是当我运行保护所有工作表 VBA 代码时,只有前 4 个工作表受到保护和休息或不受保护。 请帮我解决问题。
该评论由网站上的主持人最小化
我正在尝试在共享工作簿中使用它,但我收到 Microsoft Visual Basic 错误“运行时错误 '1004”:应用程序定义或对象定义错误“我只是在寻找有关如何解决此问题的建议。任何帮助将不胜感激
该评论由网站上的主持人最小化
在工作表已锁定时发生
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护