如何批量保护工作表

throat_king · 发表于 2015-4-20 22:44

      本人做了一个工作簿，里面包含一个目录工作表和其他200多张子工作表，分别与目录下的细项对应的。
      现在的问题是：我的这200多张工作表的同一个区域，如A1：A10是要给用户编辑的，其他所有单元格都提供给用户只读，不给作任何编辑、修改的。对其中任意一张工作表，我先设置“允许用户编辑区域”，再“保护工作表”，那么该张工作表就达到我想要的效果了。有什么办法批量保护这200多张类似的工作表呢？
   百度了一下，使用了网上的一些代码后，会将我的整张工作簿任何一张表和任何单元格都保护了，包括我要给用户编辑的A1:A10也都编辑不了了。大家帮帮我啊！

刀羊 · 发表于 2015-4-20 23:16

常规思路：

录制宏，
遍历工作表运行宏

throat_king · 发表于 2015-4-20 23:32

刀羊发表于 2015-4-20 23:16
常规思路：

录制宏，

求详细指点。之前在网上找了宏的代码，结果就连要给用户编辑的A1:A10都给保护了，编辑不了了。

ladhome · 发表于 2015-4-21 02:30

   把以下代码粘贴在工作簿代码页中。一次性对全部工作表加锁（开锁）1234为密码。
Sub 多表保护()    '一次保护全部工作表
For Each sht In Sheets
      sht.Protect "1234"
Next
End Sub
Sub 多表保护解除() '一次开锁全部工作表
For Each sht In Sheets
      sht.Unprotect "1234"
Next
End Sub

运行“多表保护宏”时一次保护全部工作表，执行“多表保护解除宏”时一次解除保护全部工作表。制作工作表时要把A1：A10区域的设置单元格格式的"保护"选项卡锁定前的勾去掉.

多表一次性全保护.rar (8.88 KB, 下载次数: 350)

throat_king · 发表于 2015-4-21 21:58

本帖最后由 throat_king 于 2015-4-21 22:10 编辑

ladhome 发表于 2015-4-21 02:30
把以下代码粘贴在工作簿代码页中。一次性对全部工作表加锁（开锁）1234为密码。
Sub 多表保护() ...

这位朋友，你短短的一段代码就解决了这个我在网上找了好久都没有解决的问题。符合我的题意。给您点赞！！！

15992136934 · 发表于 2018-5-24 19:15

搭车请教一下
保护工作表后，上方的「常用」功能也都锁定了
连粗体、颜色都不能用
请问有解吗？

呼吸爱天王 · 发表于 2018-5-24 21:37

15992136934 发表于 2018-5-24 19:15
搭车请教一下
保护工作表后，上方的「常用」功能也都锁定了
连粗体、颜色都不能用

你保护的时候可以选择勾选格式等。

凡笑 · 发表于 2018-11-2 12:29

ladhome 发表于 2015-4-21 02:30
把以下代码粘贴在工作簿代码页中。一次性对全部工作表加锁（开锁）1234为密码。
Sub 多表保护() ...

多表保护，你这方法最简单，感谢！不设密码时，只要把1234删除保留引号即可

huangzhange · 发表于 2018-11-21 11:36

呼吸爱天王发表于 2018-5-24 21:37
你保护的时候可以选择勾选格式等。

在哪里可以勾选？没有看到。

军生 · 发表于 2018-11-21 12:51

时隔 N 年，还是火热中！

		自动登录	找回密码
密码			免费注册

[已解决] 如何批量保护工作表

评分

最新热点 /1