如何批量给选中的表格加保护和解保护

goblin_he

求助各位大神，如何批量给选中的表格加保护，或者能弹出对话框，选择需要保护的工作表。输入密码。

同样，给批量选中的表格解保护，不是暴力破解的那种。

3190496160

或者上传你的附件，或者自己百度看看

liulang0808

楼主先根据自己需求录制相关的宏，参考下代码
有些需求不是录制宏能解决的，需求再上传附件咨询吧

天行道爷7

批量保护：

Sub ProtectSelectedSheets()
    Dim ws As Worksheet
    Dim sheetList As String
    Dim password As String
    password = InputBox("请输入密码：")
    If password = "" Then Exit Sub
    For Each ws In ActiveWindow.SelectedSheets
        sheetList = sheetList & "," & ws.Name
        ws.Protect password:=password, DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next ws
    sheetList = Mid(sheetList, 2)
    MsgBox "已保护工作表：" & sheetList & vbCrLf & "密码为：" & password
End Sub

批量解绑：
Sub UnprotectSelectedSheets()
    Dim ws As Worksheet
    Dim sheetList As String
    Dim password As String
    password = InputBox("请输入密码：")
    If password = "" Then Exit Sub
    For Each ws In ActiveWindow.SelectedSheets
        sheetList = sheetList & "," & ws.Name
        ws.Unprotect password:=password
    Next ws
    sheetList = Mid(sheetList, 2)
    MsgBox "已解除保护工作表：" & sheetList & vbCrLf & "密码为：" & password
End Sub