Ir para o conteúdo principal

Como aplicar congelar / descongelar painéis a várias planilhas de uma vez?

Autor: Xiao Yang Última modificação: 2020-05-22

Suponha que você tenha uma pasta de trabalho grande que contém centenas de planilhas e agora precise aplicar os painéis Congelar para congelar todas as planilhas de uma vez. Com a função Congelar painéis do Excel, você pode congelar apenas uma planilha por vez. Existe uma maneira de congelar ou descongelar todas as planilhas imediatamente no Excel?

Aplicar painéis de congelamento a todas as planilhas de uma vez com o código VBA

Aplicar Unfreeze Panes a todas as planilhas de uma vez com o código VBA

Aplique painéis congelados / descongelados a todas as planilhas de uma vez com um clique com o Kutools para Excel


Você pode usar o seguinte código para aplicar os painéis de congelamento a todas as planilhas, siga as seguintes etapas:

1. Se você deseja congelar todas as planilhas na mesma posição, selecione uma célula que deseja congelar na planilha e, em seguida, segure Shift para selecionar todas as guias da folha.

2. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

3. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: Congele todas as planilhas de uma vez no Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. E, em seguida, pressione F5 para executar este código, e todas as planilhas foram aplicadas com os painéis congelados na mesma posição.

Observação: Se todas as planilhas não forem selecionadas e as células ativas de cada planilha estiverem localizadas em posições diferentes, os painéis congelados estarão em locais diferentes como as células ativas.


Se houver várias planilhas aplicadas com os painéis de congelamento em seu Excel, como você poderia descongelá-los de uma vez, exceto descongelá-los um por um?

1. Inicie sua pasta de trabalho cujas planilhas foram aplicadas com os painéis congelados.

2. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

3. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: descongelar todas as planilhas de uma vez no Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. E, em seguida, pressione F5 para executar este código, e todas as planilhas aplicadas com os painéis congelados foram descongeladas de uma vez.


Se você não está familiarizado com os códigos VBA, aqui está uma ferramenta poderosa - Kutools for Excel, as TIC Congelar painéis, várias planilhas e Descongelar painéis várias planilhas utilitários podem ajudá-lo a congelar ou descongelar todas as planilhas da pasta de trabalho atual de uma vez.

Observação:Para aplicar isso Congelar painéis, várias planilhas, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione uma célula onde você deseja aplicar o painel de congelamento para todas as planilhas, neste caso, clico na célula B2, veja a imagem:

doc congelar todas as folhas 1-1

2. Então clique Kutools Plus > Planilha > Congelar painéis, várias planilhas, veja a captura de tela:

3. E então todas as suas planilhas foram aplicadas aos painéis de congelamento na mesma posição da célula B2.

Note: Se desejar descongelá-los imediatamente, basta aplicar o recurso Descongelar painéis de várias planilhas clicando em Kutools Plus> Planilha > Descongelar painéis várias planilhas.

Baixe e teste grátis Kutools para Excel agora!


Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations