//批量保护EXCEL表
'定义存储保护密码与撤销保护密码的变量并初始化值
Dim passwd As String
Dim CP As String
'自动保护客户信息
Sub 自动保护()
passwd = InputBox("请输入保护密码,密码为6位数字")
'对所有工作表对象执行循环
For Each one In Worksheets
'激活某个工作表
one.Select
'保护工作表
ActiveSheet.Protect Password:=passwd, _
DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Next one
'显示保护工作表成功的提示信息
MsgBox ("完成表格自动保护")
End Sub
//批量撤销保护
Sub 撤销保护()
'要求用户输入撤销保护的密码
CP = InputBox("请输入撤销保护的密码,密码为6位数字")
For Each one In Worksheets
one.Select
If CP = passwd Then
ActiveSheet.Unprotect Password:=CP
one.Activate
Else
MsgBox "输入密码有误"
Exit Sub
End If
Next one
MsgBox "撤销保护成功"
End Sub