如何批量设置工作表保护密码?

作者：绿色风分类：时间：2022-08-17 浏览：89

楼主 omnw	Q：在工作中我们经常需要对多个工作表进行密码保护，但是如果逐个设置密码肯定是比较麻烦的，如何批量设置工作表的保护密码（相同密码）呢？ A：可以借助VBA来实现这样的操作。 Sub 保护工作表() Dim sht As Worksheet For Each sht In ActiveWorkbook.Sheets ActiveSheet.Protect Password:="111" '净“111”改成自己的密码即可 Next End Sub
2楼 rabbitllu	若整个工作薄中有两个表不需要保护，其他都需要加密，并且是在关闭工作薄的时候加密，怎么修改代码呢
3楼 lrlxxqxa	思路： 1、增加条件判断工作表名称； 2、代码放在工作簿的beforeclose时执行 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets If sht.Name <> "nokey1" And sht.Name <> "nokey2" Then sht.Protect Password:="123" '把“123”改成自己的密码即可 End If Next End Sub 条件加密（关闭时执行）.rar
4楼 amylee	试试。谢谢！
5楼 bluexuemei	学习了!
6楼 icenotcool
7楼 mmice	基础功，谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表