¿Cómo deshabilitar la capacidad de insertar filas y columnas en Excel?
Normalmente, podemos insertar filas y columnas entre datos existentes de forma rápida y sencilla, si evita que otros inserten columnas o filas en una hoja de trabajo, es posible que pueda proteger la hoja para deshabilitar la función de insertar filas o columnas. Pero, ¿cómo podría deshabilitar la función de inserción de filas y columnas sin proteger la hoja?
Evite que otros inserten filas y columnas con código VBA
Evite que otros inserten filas y columnas con código VBA
El siguiente código de VBA puede ayudarlo a deshabilitar la función de inserción de filas y columnas en el libro de Excel, haga lo siguiente:
1. prensa Alt + F11 abrir una Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Módulo para abrir una ventana de Módulo, luego copie el siguiente VBA en la ventana.
Código de VBA: evite 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. prensa F5 para ejecutar este código, ahora cuando hace clic con el botón derecho para insertar filas o columnas, recuadro La opción no se puede aplicar en el menú contextual. Ver captura de pantalla:
Notas:
1. Este VBA deshabilitará la función Insertar en el menú contextual en todos los libros de trabajo cuando haga clic con el botón derecho para insertar filas o columnas.
2. Para restaurar el comando Insertar en el menú contextual, aplique 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
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!