Question

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

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

我试图锁定并保护正在修改的列，但是它会阻止对这些行进行编辑。

这甚至可能吗？

Answer 1

查看Worksheet的{{3}}属性。它具有以下设置（其中包括）：

AllowDeletingColumns
AllowDeletingRows
AllowInsertingColumns
AllowInsertingRows

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

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

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

1 个答案: