¿Cómo mantener la tabla expandible insertando la fila de la tabla en una hoja de trabajo protegida en Excel?
La función de expansión automática de la tabla se perderá después de proteger la hoja de cálculo en Excel. Por ejemplo, hay una tabla llamada Tabla1 en su hoja de trabajo protegida, cuando escribe algo debajo de la última fila, la tabla no se expandirá automáticamente para incluir la nueva fila. ¿Existe un método para mantener la tabla expandible insertando una nueva fila en una hoja de trabajo protegida? El método de este artículo puede ayudarlo a lograrlo.
Mantenga la tabla expandible insertando la fila de la tabla en una hoja de trabajo protegida con código VBA
Como se muestra a continuación en la captura de pantalla, una tabla llamada Tabla1 en su hoja de trabajo, y la última columna de la tabla es una columna de fórmula. Ahora necesita proteger la hoja de trabajo para evitar que la columna de fórmula cambie, pero permita expandir la tabla insertando una nueva fila y asignando nuevos datos en las nuevas celdas. Haz lo siguiente.
1. Hacer clic en Developer > recuadro > Botón (Control de formulario) para insertar un Control de formulario en su hoja de trabajo.
2. En la aparición Asignar macro cuadro de diálogo, haga clic en Nuevo del botón.
3. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA entre el Sub y End Sub párrafos en el Código ventana.
Código de VBA: mantenga la tabla expandible insertando la fila de la tabla en una hoja de trabajo 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 = True
Notas:
4. presione el otro + Q teclas para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
5. Seleccione las celdas de la tabla a las que necesita asignar nuevos datos excepto la columna de fórmula, luego presione el Ctrl + 1 teclas para abrir el Formato de celdas caja de diálogo. En el Formato de celdas cuadro de diálogo, desmarque la Cerrado cuadro, y luego haga clic en el OK botón. Ver captura de pantalla:
6. Ahora proteja su hoja de trabajo con la contraseña que ha especificado en el código VBA.
De ahora en adelante, después de hacer clic en el botón Control de formulario en su hoja de trabajo protegida, la tabla se podrá expandir insertando una nueva fila como se muestra a continuación.
Note: puede modificar la tabla excepto la columna de fórmula en la hoja de trabajo protegida.
Artículos relacionados:
- ¿Cómo mantener la cortadora de tabla dinámica en movimiento con el desplazamiento de la hoja de trabajo 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 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!