¿Cómo mantener la tabla expandible insertando filas en una hoja de cálculo protegida en Excel?
En Excel, cuando proteges una hoja de cálculo, la funcionalidad de expansión automática de las tablas a menudo se desactiva. Por ejemplo, si tienes una tabla llamada Tabla1 y tratas de agregar datos debajo de la última fila en una hoja de cálculo protegida, la tabla no se expandirá automáticamente para incluir la nueva fila. Sin embargo, hay una manera de mantener tu tabla expandible incluso en una hoja de cálculo protegida. Este tutorial te guiará a través de los pasos para habilitar la expansión automática de tu tabla mientras la hoja de cálculo permanece protegida.
Mantener la tabla expandible insertando filas en una hoja de cálculo protegida con código VBA
Mantener la tabla expandible insertando filas en una hoja de cálculo protegida con código VBA
Como se muestra en la siguiente captura de pantalla, una tabla llamada Tabla1 en tu hoja de cálculo, y la última columna de la tabla es una columna de fórmulas. Ahora necesitas proteger la hoja de cálculo para evitar que cambie la columna de fórmulas, pero permitir expandir la tabla insertando una nueva fila y asignar nuevos datos en las nuevas celdas. Por favor, sigue los siguientes pasos.
1. Haz clic en Desarrollador > Insertar > Botón (Control de formulario) para insertar un botón de Control de formulario en tu hoja de cálculo.
2. En el cuadro de diálogo Asignar macro que aparece, haz clic en el botón Nuevo.
3. En la ventana Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA entre los párrafos Sub y End Sub en la ventana de Código.
Código VBA: Mantener la tabla expandible insertando filas en una hoja de cálculo protegida
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = TrueNotas:
4. Presiona las teclas Alt + Q para cerrar la ventana Microsoft Visual Basic para Aplicaciones.
5. Selecciona las celdas en la tabla donde necesitas ingresar nuevos datos excepto en la columna de fórmulas, luego presiona las teclas Ctrl + 1 para abrir el cuadro de diálogo Formato de celdas. En el cuadro de diálogo Formato de celdas, desmarca la casilla Bloqueadas y luego haz clic en el botón Aceptar. Ver captura de pantalla:
6. Ahora protege tu hoja de cálculo con la contraseña que has especificado en el código VBA.
A partir de ahora, después de hacer clic en el botón de Control de formulario en tu hoja de cálculo protegida, la tabla será expandible insertando una nueva fila como se muestra en la siguiente captura de pantalla.
Nota: puedes modificar la tabla excepto la columna de fórmulas en la hoja de cálculo protegida.
Artículos relacionados:
- ¿Cómo mantener el segmentador de una Tabla Dinámica moviéndose con el desplazamiento de la hoja de cálculo en Excel?
- ¿Cómo combinar celdas y mantener el formato de celda en Excel?
- ¿Cómo eliminar duplicados pero mantener la primera instancia en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos