利用VBA批量保护/撤销EXCEL表

//批量保护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