如何保护表头行并允许用户自由插入、删除列？VBA代码问题求助

你的问题根源在于：Excel默认所有单元格的Locked属性为True，你仅锁定了现有表头列，但未解锁其他单元格；新插入的列会继承默认的Locked=True状态，即便开启了AllowDeletingColumns:=True，包含锁定单元格的列在保护模式下仍无法被删除。

修改后的初始化代码 #

先运行这段代码完成基础设置：

With Worksheet1
    .Unprotect
    ' 先解锁所有单元格
    .Cells.Locked = False
    ' 锁定表头行（第10行）的所有单元格
    .Rows(10).Locked = True
    ' 保护工作表：开启用户界面仅保护（允许VBA后续修改锁定状态），同时允许插入/删除列
    .Protect _
        UserInterfaceOnly:=True, _
        AllowInsertingColumns:=True, _
        AllowDeletingColumns:=True
End With

添加列插入事件处理 #

为确保新插入的列自动锁定表头行、解锁其他行，需在对应工作表的模块中添加事件代码：

1. 右键工作表标签 → 查看代码
2. 粘贴以下代码：

Private Sub Worksheet_ColumnInsert(ByVal Target As Range)
    ' 锁定新插入列的第10行（表头行）
    Me.Cells(10, Target.Column).Locked = True
    ' 解锁新插入列的其他所有行
    Me.Range(Me.Cells(1, Target.Column), Me.Cells(9, Target.Column)).Locked = False
    Me.Range(Me.Cells(11, Target.Column), Me.Cells(Me.Rows.Count, Target.Column)).Locked = False
End Sub

代码说明 #

• UserInterfaceOnly:=True：让工作表仅在用户界面层面受保护，VBA代码仍可修改单元格锁定状态，无需反复解锁/保护工作表。
• 初始化时先解锁所有单元格再单独锁定表头行，确保原有非表头行可编辑，新插入列的非表头行默认继承解锁状态；通过事件代码则进一步强制保证新列的锁定逻辑。
• 列插入事件自动处理新列的权限设置，既保证表头行无法编辑，又让新列可被自由删除。

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