「ExcelVBA」一键保护所有工作表

本文转载自公众号：涂涂说Excel，作者：涂大荣。本文著作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权请联系我删除。

大家好！我是涂涂

「Excel VBA」一键保护所有工作表。

今天的内容

下记工作簿中，有3个工作表，因为工作需要，需要对每一个工作表设置密码进行工作表保护。例子的工作表不多，可以逐个设置密码保护。但如果有很多个工作表需要设置密码保护，逐个设置就费时了。

今天涂涂给大家分享一段VBA小代码，一键对所有工作表设置密码保护。

❖效果图

 

操作步骤 01

◆将xlsx后缀的文件，另存为xlsm后缀的文件（xls后缀的文件不需要另存）

◆按Alt F11组合键打开VBE编辑界面

◆新建模块，双击模块，在代码区写入下记代码，保存，关闭VBE界面

代码示例

1. Sub 一键保护所有工作表()

2.    Dim sht As Worksheet

3.    For Each sht In Worksheets

4.        sht.Protect ('123')

5.    Next

6. End Sub

操作步骤 02

◆返回Excel界面，插入按钮，指定宏，点击按钮即可

※也可不插入按钮，在宏对话框中选择对应的宏代码执行

代码解释

sht.Protect('123')

◆Worksheet.Protect方法保护工作表使其不能被修改

◆工作表密码设定为“123”，123可以更改为所需的密码，密码区分大小写

◆如果省略此参数，不用密码就可以取消对工作表的保护。否则，必须指定密码才能取消对工作表的保护