如何修改VBA代码实现禁止指定区域编辑且允许删除行？

你的代码存在两个核心问题：

1. 使用了中文双引号：Range(“Y1:XFD1048576”)中的引号是中文格式，VBA无法识别，会直接报错。
2. 删除行时触发误拦截：删除整行时，Excel会将整行（包含Y列至XFD列的区域）标记为Target，触发原代码的交集判断，执行Undo撤销删除操作。

修改代码，解决引号问题，并区分「删除行操作」和「主动修改禁止区域内容」的行为，仅拦截后者：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义禁止编辑的区域（使用英文双引号）
    Dim forbiddenRange As Range
    Set forbiddenRange = Me.Range("Y1:XFD1048576")
    
    ' 检查修改区域是否与禁止区域有交集
    Dim intersectArea As Range
    Set intersectArea = Intersect(forbiddenRange, Target)
    
    If Not intersectArea Is Nothing Then
        Dim lastAction As String
        ' 获取最后一次操作的名称，用于判断是否是删除行
        On Error Resume Next
        lastAction = Application.CommandBars("Standard").Controls("Undo").List(1)
        On Error GoTo 0
        
        ' 判断是否为整行删除操作
        Dim isDeleteRow As Boolean
        isDeleteRow = (InStr(LCase(lastAction), "delete") > 0) And (Target.EntireRow.Address = Target.Address)
        
        ' 仅当不是删除行时，撤销修改操作
        If Not isDeleteRow Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        End If
    End If
End Sub

• 替换中文引号为英文引号，修复语法错误。
• 通过Application.CommandBars获取最后操作类型，结合Target.EntireRow.Address判断是否为整行删除操作。
• 仅拦截主动修改Y列及以后区域内容的行为，允许正常删除行操作。

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