如何鎖定和保護列，但允許行被編輯

Question

我已經把一個代碼放入工作表，所以當用戶雙擊單元格時，下面添加一個新行並拖拽公式。

我想要禁用刪除或插入任何列的選項，但允許插入或刪除行。

我試圖鎖定和保護正在編輯的列，但是它會停止正在編輯的行。

這甚至可能嗎？

Answer 1

查看Worksheet的Protection屬性。它具有以下設置（其中包括）：

• 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