工作表保护下表格新增行代码问题：仅最后行触发需求未实现

原代码问题分析 #

1. 位置判断错误：原代码中Target.Row = lastRow.Range.Row + 1判断的是表格最后一行的下一行（表格外部），完全偏离了“操作位于表格最后一行”的需求
2. flag逻辑混乱：错误的触发条件导致flag状态异常，一旦触发就会永久阻止新行插入
3. 冗余操作：重复执行工作表解锁，且未合理控制事件触发逻辑

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim lastTableRow As ListRow
    Dim targetInLastRow As Boolean
    
    ' 禁用事件，避免插入新行时再次触发Worksheet_Change
    Application.EnableEvents = False
    
    ' 定位目标表格
    On Error Resume Next
    Set tbl = Me.ListObjects("Table1") ' 替换为你的表格实际名称
    On Error GoTo 0
    
    If Not tbl Is Nothing Then
        Set lastTableRow = tbl.ListRows(tbl.ListRows.Count)
        ' 检查编辑区域是否属于表格最后一行
        targetInLastRow = Not Intersect(Target, lastTableRow.Range) Is Nothing
        
        ' 满足条件：编辑最后一行 + 该行已填充内容
        If targetInLastRow And Application.WorksheetFunction.CountA(lastTableRow.Range) > 0 Then
            ' 解锁工作表以允许插入行
            Me.Unprotect Password:="YourPassword" ' 替换为你的工作表保护密码
            ' 在表格末尾添加新行
            tbl.ListRows.Add
            ' 重新保护工作表
            Me.Protect Password:="YourPassword" ' 替换为你的工作表保护密码
        End If
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键逻辑说明 #

• 准确判断操作位置：通过Intersect(Target, lastTableRow.Range)验证编辑单元格是否在表格最后一行内，这是实现需求的核心判断
• 避免误触插入：加入CountA(lastTableRow.Range) > 0校验，确保只有最后一行被填满时才插入新行
• 合理处理保护与事件：仅在需要插入行时解锁工作表，操作完成后立即重新保护；提前禁用事件防止插入新行时循环触发Change事件
• 简化逻辑：移除原代码中逻辑错误的Static flag变量，改用直接的条件判断，避免状态异常

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