如何通过VBA避免重复保护Excel工作表并防范绕过操作？

针对你遇到的重复执行代码覆盖密码、需要检查保护状态的需求，以及防范用户通过审阅选项卡绕过保护的问题，以下是优化后的VBA代码及说明：

优化后的代码 #

Sub ProtectAll()
    Application.ScreenUpdating = False
    
    Dim wSheet As Worksheet
    Dim Pwd As String
    Dim protectedSheets As String ' 记录已保护的工作表名称
    Dim unprotectedCount As Integer ' 记录本次新增保护的工作表数量
    
    ' 获取密码，若取消输入则退出
    Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
    If Pwd = "" Then
        MsgBox "未输入密码，操作已取消。"
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    protectedSheets = ""
    unprotectedCount = 0
    
    For Each wSheet In Worksheets
        ' 检查工作表是否已被保护
        If Not wSheet.Protected Then
            ' 执行保护，添加UserInterfaceOnly:=True防范界面操作绕过
            wSheet.Protect Password:=Pwd, _
                          DrawingObjects:=True, _
                          Contents:=True, _
                          Scenarios:=True, _
                          AllowFormattingColumns:=True, _
                          AllowFormattingRows:=True, _
                          UserInterfaceOnly:=True
            unprotectedCount = unprotectedCount + 1
        Else
            ' 记录已保护的工作表名称
            If protectedSheets = "" Then
                protectedSheets = wSheet.Name
            Else
                protectedSheets = protectedSheets & ", " & wSheet.Name
            End If
        End If
    Next wSheet
    
    Sheets("Front_Cover").Select
    Application.ScreenUpdating = True
    
    ' 生成提示信息
    Dim msg As String
    msg = "本次成功保护 " & unprotectedCount & " 个工作表。" & vbCrLf
    If protectedSheets <> "" Then
        msg = msg & "以下工作表已处于保护状态：" & vbCrLf & protectedSheets
    End If
    MsgBox msg, vbInformation, "操作完成"
End Sub

关键优化点说明 #

• 避免重复覆盖密码：遍历每个工作表时，通过wSheet.Protected判断是否已保护，仅对未保护的工作表执行保护操作，不会覆盖已存在的保护密码。
• 防范界面绕过保护：添加UserInterfaceOnly:=True参数，仅限制用户通过Excel界面（包括审阅选项卡、右键菜单等）修改工作表内容，不影响VBA代码对工作表的操作。注意：此设置在工作簿保存关闭后会失效，若需要永久生效，需在工作簿的Workbook_Open事件中重新执行本保护代码。
• 友好的提示反馈：统计新增保护的工作表数量，同时记录已保护的工作表名称，最后统一提示，避免重复弹窗干扰。
• 密码输入校验：若用户取消输入密码或输入为空，直接退出子程序，避免无密码保护的风险。

补充：Workbook_Open事件设置（可选） #

若需要每次打开工作簿时自动恢复UserInterfaceOnly的保护状态，可以按以下步骤操作：

1. 按下Alt + F11打开VBA编辑器
2. 在左侧工程窗口中找到当前工作簿，双击ThisWorkbook
3. 粘贴以下代码：

Private Sub Workbook_Open()
    ' 这里替换为你的保护密码，或者重新弹出输入框
    Const PROTECT_PWD As String = "YourPassword"
    
    Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        If Not wSheet.Protected Then
            wSheet.Protect Password:=PROTECT_PWD, _
                          DrawingObjects:=True, _
                          Contents:=True, _
                          Scenarios:=True, _
                          AllowFormattingColumns:=True, _
                          AllowFormattingRows:=True, _
                          UserInterfaceOnly:=True
        End If
    Next wSheet
End Sub

注意：将YourPassword替换为实际的保护密码，或者也可以在事件中重新弹出输入框获取密码，但会增加打开工作簿的步骤。

内容的提问来源于stack exchange，提问作者Vivapayne