撤销工作表保护原密码_批量解除工作表保护，和批量执行保护一样简单

前景提要(文末提供源码下载)

昨天我们学习了工作表的批量保护的功能，通过昨天的方法呢，我们可以轻松快速的实现多个工作表的加密，在一定程度上能够实现数据的保护功能，当其他人将数据使用完之后，返回来给我们修改的时候，新的问题出现了！工作表的保护是挺好，好到现在我自己修改数据都需要一个一个去解除密码保护才可以修改，太麻烦了，既然有批量实现工作表的保护功能，那么有没有相对的批量解除保护的功能？

场景说明

批量解除保护的功能肯定是存在的，不然批量保护在某种程度上也等于是阻扰我们自己对数据的修改，自找麻烦

来看看我们的案例，这是我们上节学习批量保护的工作薄，上节我们已经成功的将总表之外的其他的工作表都已经加密了，这样的提示也证明所有的工作表都处于一个锁定的状态，我们来尝试下批量解锁

代码区

Sub UNprotect()Dim sth As Worksheet, str$s = Application.InputBox("请输入密码