如何在 Excel 中禁用插入列和行的功能？

通常，我們可以快速輕鬆地在現有數據之間插入行和列。如果您想防止他人在工作表中插入列或行，您可以通過保護工作表來禁用插入行或列的功能。但是，如果不使用保護工作表的方式，該如何禁用插入行和列的功能呢？

使用 VBA 程式碼防止他人插入行和列

使用 VBA 程式碼防止他人插入行和列

以下的 VBA 程式碼可以幫助您在 Excel 工作簿中禁用插入行和列的功能，請按照以下步驟操作：

1. 按下 Alt + F11 開啟 Microsoft Visual Basic for Application 視窗。

2. 點擊 插入 > 模組 以開啟模組視窗，然後將以下 VBA 程式碼複製到該視窗中。

VBA 程式碼：防止插入行和列：

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵執行此程式碼，現在當您右鍵點擊並嘗試插入行或列時，快捷選單中的 插入 選項將無法使用。請參見截圖：

注意：

1. 此 VBA 將在所有工作簿的快捷選單中禁用 插入 功能，當您右鍵點擊插入行或列時。

2. 若要恢復快捷選單中的 插入 命令，請應用以下程式碼：

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub