如何锁定和保护列但允许编辑行

【问题标题】：How to lock and protect columns but allow rows to be edited如何锁定和保护列但允许编辑行
【发布时间】：2017-06-17 12:30:11
【问题描述】：

我已将代码放入工作表中，因此当用户双击单元格时，会在下方添加一个新行并将公式向下拖动。

我想禁用删除或插入任何列的选项，但允许插入或删除行。

我尝试锁定和保护正在编辑的列，但它阻止了行被编辑。

这甚至可能吗？

【问题讨论】：

标签： excel row protected editing vba

【解决方案1】：

查看Worksheet 的Protection 属性。它具有以下设置（除其他外）：

允许删除列
允许删除行
允许插入列
允许插入行

因此您可以保护工作表以允许插入和删除行但不允许列：

Option Explicit

Sub Test()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    ws.Unprotect
    ws.Cells.Locked = False
    ws.Protect AllowInsertingColumns:=False, _
        AllowDeletingColumns:=False, _
        AllowInsertingRows:=True, _
        AllowDeletingRows:=True

End Sub

【讨论】：