Como manter a tabela expansível inserindo a linha da tabela em uma planilha protegida no Excel?

No Excel, quando você protege uma planilha, a funcionalidade de expansão automática de tabelas geralmente é desabilitada. Por exemplo, se você tiver uma tabela chamada Table1 e tentar adicionar dados na última linha em uma planilha protegida, a tabela não será expandida automaticamente para incluir a nova linha. No entanto, há uma maneira de manter sua tabela expansível mesmo em uma planilha protegida. Este tutorial o guiará pelas etapas para habilitar a expansão automática de sua tabela enquanto a planilha permanece protegida.

Mantenha a tabela expansível inserindo a linha da tabela em uma planilha protegida com código VBA

Mantenha a tabela expansível inserindo a linha da tabela em uma planilha protegida com código VBA

Conforme a imagem abaixo mostrada, uma tabela chamada Tabela1 em sua planilha, e a última coluna da tabela é uma coluna de fórmula. Agora você precisa proteger a planilha para evitar que a coluna da fórmula mude, mas permita expandir a tabela inserindo uma nova linha e atribuir novos dados às novas células. Faça o seguinte.

1. Clique Developer > inserção > Botão (controle de formulário) inserir um Controle de formulário botão em sua planilha.

2. No popping up Atribuir Macro caixa de diálogo, clique no botão Novo botão.

3. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo entre as Sub e End Sub parágrafos no Code janela.

Código VBA: mantenha a tabela expansível inserindo a linha da tabela em uma planilha 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. aperte o outro + Q para fechar a janela Microsoft Visual Basic for Applications.

5. Selecione as células na tabela às quais você precisa atribuir novos dados, exceto a coluna de fórmula, e pressione o botão Ctrl + 1 chaves para abrir o formatar células caixa de diálogo. No formatar células caixa de diálogo, desmarque o Trancado e, em seguida, clique no OK botão. Veja a imagem:

6. Agora proteja sua planilha com a senha que você especificou no código VBA.

A partir de agora, após clicar no botão Form Control em sua planilha protegida, a tabela será expandida inserindo uma nova linha conforme a imagem mostrada abaixo.

Note: você pode modificar a tabela, exceto a coluna de fórmula na planilha protegida.

Artigos relacionados:

• Como manter a segmentação da Tabela Dinâmica em movimento com a rolagem da planilha no Excel?
• Como combinar células e manter a formatação das células no Excel?
• Como remover duplicatas, mas manter a primeira instância no Excel?