¿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 = True

Notas:

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?