撤销工作表保护原密码_一小段Excel VBA代码012：批量解除工作表密码保护

一段简单的VBA代码，让你自如操作Excel！

抛砖引玉的场景需求：批量解除工作簿中所有工作表的保护设置!

代码示例

在标准模块中加入如下代码即可实现上面的演示功能。

Sub 批量解除保护工作表()For x = 1 To Worksheets.Count Worksheets(x).Unprotect NextEnd Sub

上面的代码是针对没有设置密码保护的工作表。如果工作表有固定密码，比如密码为123：就可以这样写：

Sub 批量解除保护工作表()For x = 1 To Worksheets.Count Worksheets(x).Unprotect Password:=123NextEnd Sub

动手试一试，屏幕前的你， 复制代码运行下吧~~！

更多Excel VBA编程知识(职场牛人的必备秘技)，可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳下面链接：

《神奇的VBA》-职场牛人都在使用的Excel插件

《神奇的VBA》选项卡样式

神奇的VBA使用演示图