Como desativar a capacidade de inserir linha e coluna no Excel?

Normalmente, podemos inserir linhas e colunas entre os dados existentes de forma rápida e fácil. Se você deseja evitar que outras pessoas insiram colunas ou linhas em uma planilha, talvez possa proteger a planilha para desativar a função de inserção de linhas ou colunas. Mas como desativar a função de inserção de linhas e colunas sem proteger a planilha?

Impedir que outros insiram linhas e colunas com código VBA

Impedir que outros insiram linhas e colunas com código VBA

O seguinte código VBA pode ajudá-lo a desativar a função de inserção de linhas e colunas na pasta de trabalho do Excel; por favor, siga estas instruções:

1. Pressione Alt + F11 para abrir uma janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo para abrir uma janela Módulo, depois copie o seguinte código VBA para a janela.

Código VBA: impedir a inserção de linhas e colunas:

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. Pressione a tecla F5 para executar este código. Agora, ao clicar com o botão direito para tentar inserir linhas ou colunas, a opção Inserir não estará disponível no menu de contexto. Veja a captura de tela:

Observações:

1. Este código VBA desativará a função Inserir no menu de contexto em todas as pastas de trabalho quando você clicar com o botão direito para inserir linhas ou colunas.

2. Para restaurar o comando Inserir no menu de contexto, aplique o seguinte código:

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