如何锁定表格指定列公式同时保留其自动化属性？（VBA）

针对你遇到的问题，完全可以用VBA解决——通过精准设置单元格锁定状态，再配合带权限的工作表保护，既能锁住公式列不被误改，又能保留插入/删除行、自动新增行、筛选功能。下面是具体步骤：

1. 先设置单元格锁定属性 #

工作表保护的核心逻辑是：只锁定需要保护的单元格（公式列），解锁其他可编辑区域。运行以下宏快速完成设置：

Sub 设置公式列锁定()
    Dim tbl As ListObject
    Dim col As ListColumn
    
    ' 替换为你的工作表名称和表格名称
    Set tbl = ThisWorkbook.Worksheets("员工数据工作表").ListObjects("员工数据表")
    
    ' 先解锁整个表格的所有单元格
    tbl.DataBodyRange.Locked = False
    
    ' 遍历每一列，锁定包含公式的列
    For Each col In tbl.ListColumns
        ' 以列内第一行数据单元格判断是否为公式列
        If col.DataBodyRange(1).HasFormula Then
            col.DataBodyRange.Locked = True
        End If
    Next col
End Sub

运行方法：按Alt+F8，选择这个宏执行即可。

2. 带权限的工作表保护 #

普通保护会禁用大量功能，我们通过VBA的Protect方法指定允许的操作，保留你需要的功能：

Sub 保护工作表并保留编辑权限()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("员工数据工作表") ' 替换为你的工作表名称
    
    ' 执行保护，同时开放需要的权限
    ws.Protect _
        Password:="yourpassword", ' 可选：设置保护密码，不需要则删除此行
        DrawingObjects:=False, _
        Contents:=True, _
        Scenarios:=True, _
        AllowInsertingRows:=True, _
        AllowDeletingRows:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=False ' 不需要透视表可保持False
    
    ' 限制仅能选中未锁定的单元格（避免误点公式列）
    ws.EnableSelection = xlUnlockedCells
End Sub

取消保护的宏：

Sub 取消工作表保护()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("员工数据工作表")
    
    ws.Unprotect Password:="yourpassword" ' 有密码则填对应密码，无则删除参数
End Sub

3. 自动触发保护（可选） #

如果想打开文件时自动启用保护，设置工作簿打开事件：

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口双击ThisWorkbook
3. 粘贴以下代码：

Private Sub Workbook_Open()
    ' 打开文件时自动执行保护
    Call 保护工作表并保留编辑权限
End Sub

关键注意事项 #

• 务必替换代码中的工作表名称和表格名称为你实际使用的名称，否则会报错
• 密码可按需设置，不需要保护密码就直接删除Password:="yourpassword",这一行
• 表格的自动新增行功能依赖表格本身的AllowNewRows属性（默认开启，无需额外设置）
• 操作前建议备份数据，避免意外问题

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