Como manter a tabela expansível inserindo a linha da tabela em uma planilha protegida no Excel?
A função de expansão automática da tabela será perdida após a proteção da planilha no Excel. Por exemplo, se houver uma tabela chamada Tabela1 em sua planilha protegida, quando você digitar qualquer coisa na última linha, a tabela não se expandirá automaticamente para incluir a nova linha. Existe método para manter a tabela expansível inserindo uma nova linha em uma planilha protegida? O método neste artigo pode ajudá-lo a alcançá-lo.
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 = TrueNotas:
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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
