Como manter a tabela expansível ao inserir uma linha numa folha de cálculo protegida no Excel?
No Excel, quando protege uma folha de cálculo, a funcionalidade de expansão automática das tabelas é frequentemente desativada. Por exemplo, se tiver uma tabela denominada Table1 e tentar adicionar dados abaixo da Última Linha numa folha de cálculo protegida, a tabela não se expandirá automaticamente para incluir a nova linha. Contudo, existe uma forma de manter a sua tabela expansível mesmo numa folha de cálculo protegida. Este tutorial orientá-lo-á passo a passo sobre como ativar a expansão automática da sua tabela enquanto a folha de cálculo permanece protegida.
Manter a tabela expansível ao inserir uma linha de tabela numa folha de cálculo protegida com código VBA
Conforme ilustrado na imagem seguinte, a sua folha de cálculo contém uma tabela denominada Table1, cuja Última Coluna é composta por fórmulas. Pretende proteger a folha de modo a impedir alterações nessa coluna com fórmulas, mas permitir que a tabela seja expandida — ou seja, que se possa inserir uma nova linha e introduzir dados nas novas células. Siga os passos abaixo.
1. Clique em Programador > Inserir > Botão (Controlo de formulário) para inserir um botão de Controlo de formulário na sua folha de cálculo.
2. Na caixa de diálogo Atribuir macro que surge, clique no botão Novo.
3. Na janela do Microsoft Visual Basic para Aplicações, copie e cole o seguinte código VBA entre os parágrafos Sub e End Sub na janela Código.
Código VBA: Manter a tabela expansível ao inserir uma linha de tabela numa folha 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. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic para Aplicações.
5. Selecione as células da tabela nas quais pretende introduzir novos dados, exceto a coluna com fórmulas, e depois prima as teclas Ctrl+1 para abrir a caixa de diálogo Definir formato de célula. Na caixa de diálogo Definir formato de célula, desmarque a opção Bloqueada e, em seguida, clique no botão OK. Veja a imagem:
6. Agora, proteja a sua folha de cálculo com a palavra-passe definida no código VBA.
A partir de agora, ao clicar no botão de Controlo de formulário na sua folha de cálculo protegida, a tabela torna-se expansível com a inserção de uma nova linha, conforme ilustrado na imagem seguinte.
Nota: pode editar a tabela, exceto a coluna com fórmulas, na folha de cálculo protegida.
Artigos relacionados:
- Como fazer o segmentador de Tabela Dinâmica mover-se automaticamente ao navegar pela folha de cálculo no Excel?
- Como combinar células no Excel e manter a formatação original?
- Como remover duplicatas, mantendo apenas a primeira ocorrência no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos