一段简单的VBA代码,让你自如操作Excel!
抛砖引玉的场景需求:批量解除工作簿中所有工作表的保护设置!
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 批量解除保护工作表() For x = 1 To Worksheets.Count Worksheets(x).Unprotect Next End Sub
上面的代码是针对没有设置密码保护的工作表。如果工作表有固定密码,比如密码为123:就可以这样写:
Sub 批量解除保护工作表() For x = 1 To Worksheets.Count Worksheets(x).Unprotect Password:=123 Next End Sub
动手试一试,屏幕前的你, 复制代码运行下吧~~!
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址戳下面链接:
《神奇的VBA》-职场牛人都在使用的Excel插件
《神奇的VBA》选项卡样式
神奇的VBA使用演示图
,