「ExcelVBA」一键取消所有工作表密码

作者：涂大荣。

「Excel VBA」一键取消所有工作表密码。

今天的内容

下记工作簿中，有3个工作表，每个工作表都设置了保护密码。工作表不多，可以逐个解锁，修改表格。但如果工作表很多，需要逐个输入密码解密，很费事。亦或者忘记了工作表保护密码，无法解锁工作表保护修改文档，怎么办呢？别担心，福利来了。

今天涂涂给大家分享一段VBA小代码，无需解锁密码，一键移除所有工作表的保护密码。

❖效果图

 

操作步骤

STEP 01

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

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

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

代码示例

1. Sub 一键移除工作表保护密码()

2.    Dim sht As Worksheet

3.    For Each sht In Worksheets

4.        sht.Protect AllowFiltering:=True

5.        sht.Unprotect

6.    Next

7. End Sub

STEP 02

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

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

代码解释

sht.Unprotect

◆Worksheet.Unprotect 方法取消工作表的保护

◆Unprotect（）括号内参数可以添加解锁密码，密码区分大小写；如果不知道密码，可省略