作者：乔山办公网日期：
返回目录：excel表格制作
一段简单的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》选项卡样式
神奇的VBA使用演示图