一键取消所有工作表密码

　　作者：涂大荣。
　　「Excel VBA」一键取消所有工作表密码。
　　今天的内容
　　下记工作簿中，有3个工作表，每个工作表都设置了保护密码。工作表不多，可以逐个解锁，修改表格。但如果工作表很多，需要逐个输入密码解密，很费事。亦或者忘记了工作表保护密码，无法解锁工作表保护修改文档，怎么办呢？别担心，福利来了。
　　今天涂涂给大家分享一段VBA小代码，无需解锁密码，一键移除所有工作表的保护密码。
　　❖效果图
　　操作步骤
　　STEP 01
　　◆将xlsx后缀的文件，另存为xlsm后缀的文件（xls后缀的文件不需要另存）
　　◆按Alt F11组合键打开VBE编辑界面
　　◆新建模块，双击模块，在代码区写入下记代码，保存，关闭VBE界面
　　代码示例
　　Sub 一键移除工作表保护密码()
　　Dim sht As Worksheet
　　For Each sht In Worksheets
　　sht.Protect AllowFiltering:=True
　　sht.Unprotect
　　Next
　　End Sub
　　STEP 02
　　◆返回Excel界面，插入按钮，指定宏，点击按钮即可
　　※也可不插入按钮，在宏对话框中选择对应的宏代码执行
　　代码解释
　　sht.Unprotect
　　◆Worksheet.Unprotect 方法取消工作表的保护
　　◆Unprotect（）括号内参数可以添加解锁密码，密码区分大小写；如果不知道密码，可省略