请教可否批量取消工作表保护

牛奶加咖啡 · 发表于 2009-5-11 16:03

在一个工作薄里有许多表，每个表设置了相同的密码保护，请问有没有办法一次性取消所有表格的保护，先谢谢了！！！

[ 本帖最后由牛奶加咖啡于 2009-5-11 17:03 编辑 ]

nicholas_he · 发表于 2009-5-11 16:08

用VBA可以的哦
至于excel基本的功能看能否一次性搞定，不知道

牛奶加咖啡 · 发表于 2009-5-11 17:04

难道真的没有办法吗？

wisdom100 · 发表于 2009-5-11 17:16

晕.........那里找不是很多吗??

给你给你~~
Sub SheetsProtect()
'保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each sht In Worksheets
mySheet = sht.Name
Sheets(mySheet).Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next sht
Application.ScreenUpdating = True
End Sub

Sub SheetsUnProtect()
'取消保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Unprotect "1234"
Next sht
Application.ScreenUpdating = True
End Sub

xueyuan · 发表于 2009-6-15 16:33

楼上的好用
学习一下。。

但不知如何将密码通过提示框输入呢？？

yuyangqh · 发表于 2010-8-19 10:32

在循环前加上一句
Pd=inputbox("请输入密码！")
密码用Pd变量代替

stephen1707 · 发表于 2010-8-19 10:08

原帖由 wisdom100 于 2009-5-11 17:16 发表
晕.........那里找不是很多吗??

给你给你~~
Sub SheetsProtect()
'保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each ...

还真是高手！学习了！

SEN007 · 发表于 2010-10-31 00:34

可不可以批量保护后也能使用隐藏功能？

mf_wei · 发表于 2014-11-7 08:55

高手，佩服，谢谢

游心三痴 · 发表于 2014-11-21 10:00

yuyangqh 发表于 2010-8-19 10:32
在循环前加上一句
Pd=inputbox("请输入密码！")
密码用Pd变量代替

高！
更人性化些！
结合楼上的VBA已经试验成功！

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

[求助] 请教可否批量取消工作表保护

007