批量设置Excel工作簿密码OR取消密码

Sub 多表保护()     '一次保护全部工作表
    For Each sht In Sheets
        sht.Protect "_Pass_"
    Next
End Sub





Sub 多表保护解除() '一次开锁全部工作表
    For Each sht In Sheets
        sht.Unprotect "_Pass_"
    Next
End Sub