EXCELVBA一键保护（解除保护）多个工作表便于权限管理
在excel多表系统设计时，用工作表权限设置,或者不希望用户破坏界面
结构及格式的时候会对表加密码保护。但是在设计阶段，或者在运行阶段,
对一些数据写入的时候需要临时解开保护再重新加保，这种情况下如果工作表
比较多，手工操作会比较繁琐，还好有VBA利器，本代码就是专门
解决批量设置sheet表保护状态 主要代码如下
Option Explicit
'------------Protect Start---Excel880.com---QQ80871835-------
Public Sub E8_ProtectSheet(sht As Worksheet, ByVal flag As Boolean, Optional ByVal password = "")
'**根据工作表名保护或者解保护
'flag=true加保护 false解保护
'On Error Resume Next
If flag Then
sht.Protect password
Else
sht.Unprotect password
End If
End Sub
Public Sub E8_ProtectSheets(shtlist, Optional flag As Boolean = True, Optional password = "")
'**批量工作表保护或者解保护
'shtslist待操作工作表名列表 以逗号分隔 例如
Dim shts As Sheets, sht As Worksheet, wbk
Set wbk = ThisWorkbook
Set shts = wbk.Sheets(Split(shtlist, ","))
For Each sht In shts
Call E8_ProtectSheet(sht, flag)
Next
End Sub
Public Sub E8_ProtectAllSheets(Optional flag As Boolean = True, Optional password = "")
'**批量工作表保护或者解保护
'shtslist待操作工作表名列表 以逗号分隔 例如
Dim shts As Sheets, sht As Worksheet, wbk
Set wbk = ThisWorkbook
Set shts = wbk.Sheets
For Each sht In shts
Call E8_ProtectSheet(sht, flag, password)
Next
End Sub
'------------Protect End---------------
Private Sub Test()
Dim i&, j&, k&, arr, brr
'按列表保护
E8_ProtectSheets "sheet1,sheet2,sheet3,x", True, 123 '加保护
'E8_ProtectSheets "sheet1,sheet2,sheet3,x", False, 123'解保护
'E8_ProtectAllSheets True, 123 '保护所有工作表
'E8_ProtectAllSheets False, 123 '解保护所有工作表
End Sub
Public Sub 批量设置() '本示例 根据参数表对多个工作表设置不同的保护状态和不同的保护密码
Dim p, i
For i = 2 To 5
E8_ProtectSheet ThisWorkbook.Sheets(Cells(i, 1).Value), Cells(i, 2), Cells(i, 3)
Next
End Sub