如何为工作簿所有工作表的指定区域设置密码保护？

错误原因与代码修正 #

运行时错误'1004'的核心原因是：当工作表处于保护状态时，无法修改单元格的Locked属性。另外你的代码还存在几个不符合需求的问题：仅处理单个工作表、指定的保护范围错误、未批量处理目标区域。

以下是修正后的代码，可实现为工作簿所有现有工作表的H6:I9和E22:E29区域设置密码保护（目标区域锁定，其余单元格解锁）：

Sub Protect_Target_Ranges()
    Dim ws As Worksheet
    Dim targetRanges As Range
    Dim password As String
    
    ' 设置保护密码，可根据需求修改
    password = "your_password_here"
    
    ' 循环遍历工作簿中所有现有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 先解除工作表保护（如果已保护）
        If ws.ProtectContents Then
            ws.Unprotect Password:=password
        End If
        
        ' 1. 解锁所有单元格（默认单元格Locked属性为True，先统一解锁）
        ws.Cells.Locked = False
        
        ' 2. 锁定目标区域：H6:I9 和 E22:E29
        Set targetRanges = Union(ws.Range("H6:I9"), ws.Range("E22:E29"))
        targetRanges.Locked = True
        
        ' 3. 重新保护工作表，可按需调整允许的操作权限
        ws.Protect _
            Password:=password, _
            DrawingObjects:=False, _
            Contents:=True, _
            Scenarios:=False
    Next ws
End Sub

你的疑问解答 #

• 是否需要先锁定工作表标签？
  不需要。工作表标签的锁定属于工作簿级的结构保护（防止用户删除、移动、重命名工作表），和你要实现的单元格区域保护是独立设置。如果不需要限制工作表标签操作，完全不用处理这一步；若需要锁定标签，可在代码末尾添加ThisWorkbook.Protect Structure:=True, Password:=password。

• 能否锁定该区域内的合并单元格？
  可以。合并单元格的Locked属性统一作用于整个合并区域，只要代码中选中了包含合并单元格的目标范围，设置targetRanges.Locked = True就会锁定整个合并区域，无需额外操作。

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