基于特定单元格内容变化冻结Excel单元格的VBA代码报错求助

先拆解你代码里的几个核心错误：

• Range对象语法错误：你用Range(("B37"), ("B38"), ...)的写法不符合VBA规范，要选中多个不连续单元格，应该把所有地址放在同一个字符串里用逗号分隔，比如Range("B37,B38,B39,B41,B42,B44,B45,B47,B48")，这种写法简洁且符合语法要求。
• Cells方法误用：ActiveSheet.Cells("B6")是错误的，Cells的参数需要是行号+列号（比如Cells(6,2)对应B6），如果要直接引用单元格地址，用Range("B6")更直观不易错。
• 未处理工作表保护逻辑：要修改单元格的Locked属性，必须先解除工作表保护，修改完成后再重新保护——默认状态下工作表是保护状态，且单元格默认Locked=True，不解除保护的话，修改Locked属性根本不会生效。
• 事件触发范围未限制：Worksheet_Change事件会在任何单元格修改时触发，最好先判断修改的是不是B6单元格，避免不必要的触发，还能防止意外循环。
• 代码不完整：你的Else部分被截断了，需要补充完整逻辑（比如当B6不是"Convenience"时，解锁这些目标单元格）。

下面是修正后的完整可运行代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在B6单元格被修改时执行逻辑
    If Not Intersect(Target, Me.Range("B6")) Is Nothing Then
        ' 关闭事件触发，防止循环执行
        Application.EnableEvents = False
        
        ' 解除工作表保护（如果有密码，在Unprotect后添加密码参数，比如Unprotect "yourpassword"）
        Me.Unprotect
        
        Dim targetRange As Range
        Set targetRange = Me.Range("B37,B38,B39,B41,B42,B44,B45,B47,B48")
        
        If Me.Range("B6").Text = "Convenience" Then
            ' 锁定目标单元格
            targetRange.Locked = True
        Else
            ' 解锁目标单元格（可根据实际需求调整逻辑）
            targetRange.Locked = False
        End If
        
        ' 重新保护工作表（如果需要密码，Protect后添加参数，比如Protect "yourpassword"）
        Me.Protect
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键细节补充： #

• 用Intersect(Target, Me.Range("B6"))精准判断触发条件，只在B6变化时执行代码，提升效率。
• 加入Application.EnableEvents = False避免修改单元格时重复触发Worksheet_Change事件，造成循环卡死。
• 用Me代替ActiveSheet，更安全稳定（ActiveSheet可能会因切换工作表而变化，Me始终指向代码所在的工作表）。
• 完整的保护流程：解锁→修改属性→重新上锁，确保Locked属性的修改能正常生效。

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