¿Cómo deshabilitar la capacidad de insertar filas y columnas en Excel?

Normalmente, podemos insertar filas y columnas entre los datos existentes de forma rápida y sencilla. Si deseas evitar que otros inserten columnas o filas en una hoja de cálculo, puedes proteger la hoja para deshabilitar la función de insertar filas o columnas. Pero, ¿cómo podrías deshabilitar la función de insertar filas y columnas sin proteger la hoja?

Evitar que otros inserten filas y columnas con código VBA

Evitar que otros inserten filas y columnas con código VBA

El siguiente código VBA puede ayudarte a deshabilitar la función de insertar filas y columnas en un libro de Excel. Por favor, sigue estos pasos:

1. Presiona Alt + F11 para abrir una ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo para abrir una ventana de Módulo, luego copia el siguiente código VBA en la ventana.

Código VBA: evitar insertar filas y columnas:

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. Presiona la tecla F5 para ejecutar este código. Ahora, cuando hagas clic derecho para intentar insertar filas o columnas, la opción Insertar no estará disponible en el menú contextual. Ver captura de pantalla:

Notas:

1. Este código VBA deshabilitará la función Insertar en el menú contextual de todos los libros de trabajo cuando hagas clic derecho para insertar filas o columnas.

2. Para restaurar el comando Insertar en el menú contextual, por favor aplica el siguiente 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