¿Cómo desactivar la opción de insertar filas y columnas en Excel?
Normalmente, podemos insertar filas y columnas entre datos existentes de forma rápida y sencilla. Si desea impedir que otros usuarios inserten filas o columnas en una hoja de cálculo, puede proteger la hoja para desactivar dicha función. Pero, ¿cómo podría deshabilitar la inserción de filas y columnas sin proteger la hoja?
Impedir que otros Insertar filas y columnas con código VBA
Impedir que otros Insertar filas y columnas con código VBA
El siguiente código VBA le permite deshabilitar la función para insertar filas y columnas en un libro de Excel. Siga estos pasos:
1. Pulse Alt + F11 para abrir una ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo para abrir una ventana de módulo y, a continuación, copie el siguiente código VBA en dicha ventana.
Código VBA: impedir 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. Pulse la tecla F5 para ejecutar este código. A partir de ahora, al hacer clic con el botón derecho para insertar filas o columnas, la opción Insertar ya no estará disponible en el menú contextual. Vea la captura de pantalla:
Notas:
1. Este código VBA desactivará la opción Insertar del menú contextual en todos los libros al hacer clic con el botón derecho para insertar filas o columnas.
2. Para recuperar 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 para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos