Excel VBA宏需求：实现选中单元格下方前5个单元格动态保护

• 选中I列第6行及以上单元格并输入数据时，保护该单元格下方的前5个单元格（例如选中I6则保护I1:I5），包括当前选中单元格在内的其他单元格不受锁定限制
• 若选中I列第1至6行的任意单元格，弹出警告提示用户选择I6以上的单元格
• 首次选中I6后，若再次选中I6以上的其他单元格，需保护新选中单元格下方的前5个单元格，解除原保护单元格的锁定，且当前选中单元格始终保持未锁定状态

1. 选中范围判断逻辑错误：仅在选中单元格行号≤5时触发警告，未覆盖需求中I6单元格的情况
2. 警告提示语与需求不符：原提示内容偏离需求，未明确引导用户选择I6以上单元格
3. 选中I6的场景未按需求处理：原代码允许选中I6，但需求第二条要求I1:I6范围内单元格都需触发警告

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet
    Dim rngProtect As Range
    Dim startRow As Long
    Dim endRow As Long

    Set ws = Sh

    ' 仅处理I列的单个单元格选中情况
    If Target.Column = 9 And Target.Cells.Count = 1 Then
        ' 选中I1:I6时弹出警告
        If Target.Row <= 6 Then
            MsgBox "请选择I6以上的单元格进行操作！", vbExclamation, "无效选择"
            Exit Sub
        End If

        ' 计算需要保护的范围：当前选中单元格下方的前5个单元格（即上方5行）
        startRow = Target.Row - 5
        endRow = Target.Row - 1
        Set rngProtect = ws.Range("I" & startRow & ":I" & endRow)

        ' 禁用事件避免递归
        Application.EnableEvents = False

        ' 解除工作表保护
        ws.Unprotect Password:="yourpassword" ' 替换为你的工作表保护密码

        ' 解锁所有单元格，重置锁定状态
        ws.Cells.Locked = False

        ' 锁定目标范围
        rngProtect.Locked = True

        ' 重新保护工作表，保留排序和筛选权限
        ws.Protect Password:="yourpassword", AllowSorting:=True, AllowFiltering:=True

        ' 重新启用事件
        Application.EnableEvents = True
    End If
End Sub

• 修正选中范围判断：将判断条件改为Target.Row <= 6，完全覆盖需求中I1:I6的警告范围
• 更新警告提示语：改为符合需求的引导内容，明确告知用户操作要求
• 保留状态重置逻辑：每次切换选中单元格时，先解锁所有单元格再锁定新目标范围，确保原保护区域自动解除锁定
• 确保选中单元格未锁定：通过全局解锁后仅锁定目标区域的逻辑，自然实现选中单元格始终处于未锁定状态

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