[已解决]求：批量保护工作表代码？

fxgg72 · 发表于 2012-12-19 18:55

工作簿中有很多工作表，想批量进行保护。
求：大侠老师们分享一下代码，要带密码的那种代码。
谢谢各位大侠老师！

最佳答案

zjdh

2012-12-21 08:10

这么简单的事

Book1.rar (8.02 KB, 下载次数: 20)

zjdh · 发表于 2012-12-19 19:14

Sub test()
For I = 1 To Sheets.Count
Sheets(I).Protect "123"
Next
End Sub

zjdh · 发表于 2012-12-19 19:15

密码为：123

fxgg72 · 发表于 2012-12-21 06:18

zjdh 发表于 2012-12-19 19:14
Sub test()
For I = 1 To Sheets.Count
Sheets(I).Protect "123"

老师，我验证了啊，工作表还是没得到保护。
我是03版的。
工具-保护-保护工作表还是亮着的，不是灰色的。
您能做个示例文档？
谢谢老师！
不胜感激！

zjdh · 发表于 2012-12-21 08:10

这么简单的事

Book1.rar (8.02 KB, 下载次数: 20)

fxgg72 · 发表于 2012-12-21 12:15

zjdh 发表于 2012-12-21 08:10
这么简单的事

谢谢！
很有效。我只要保护按钮，不要撤销按钮。

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