Cálculo Manual somente em uma ABA no excel

[Wilugab]

Pessoal, boa tarde!

 

Estou com uma dúvida muito grande e importante.

 

Tenho uma planilha de dados onde existe várias abas, sendo que, quero colocar cálculo manual somente em uma ABA e deixar as demais calculando automaticamente.

 

Alguém pode me ajudar.

 

Obrigado!

 

[Wilugab]

Pessoal Obrigado pela Ajuda, mas consegui resolver meu problema.

 

Caso alguém tenha essa mesma dúvida ex a solução:

 

Atribui um código que quando clico ou seleciono a ABA o cálculo fique manual.

 

Private Sub Worksheet_Activate()

'

    Application.Calculation = xlManual

    

End Sub

 

Quando sai da aba ativa um outro código:

 

Private Sub Worksheet_Activate()

'

    Application.Calculation = xlCalculationAutomatic

    

End Sub

 

Ainda sou um pouco leigo nesta área de VBA caso alguém tenha uma linha de comando melhor, posta ae. valeu!

[Visitante]

O "set up" do modo de cálculo, para manual ou para automático, vale para o aplicativo, ou seja, vale para o Excel, e não somente para uma planilha.
No entanto, é possível por meio de macro desabilitar/habilitar a propriedade "Calculation" das planilhas de um arquivo.
Se quiser testar esta solução, instale o código abaixo em um módulo comum, assim:

1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).
 

Sub CalculaUmaVez() ActiveSheet.EnableCalculation = True ActiveSheet.EnableCalculation = FalseEnd Sub

funcionamento - a cada vez que rodar o código a planilha ativa irá recalcular e em seguida irá desabilitar o recálculo daquela planilha, não sendo possível recalcular nem pelo F9.

 

obs. os códigos que você postou acima (post #2) são disparados ao ativar a planilha, porém eles não poderão ser instalados no módulo de uma mesma planilha pois o Excel não admite que mais de um código seja disparado pelo mesmo evento, por isso o segundo código deverá ser Private Sub Worksheet_Deactivate(), dessa forma, com os dois códigos instalados no módulo de uma planilha, o recálculo será passado para Manual ao selecionar a planilha e para Automático ao deselecionar a mesma planilha. Lembrando que essa seleção vale para o aplicativo (Excel) e não somente para a planilha.

[Daniel.f.Oliveira]

Em 12/10/2014 às 19:28, osvaldomp disse:

Sub CalculaUmaVez() ActiveSheet.EnableCalculation = True ActiveSheet.EnableCalculation = FalseEnd Sub

 

Bom dia.

 

Esse código deve ser copiado e colado exatamente como está sendo mostrado? ou deve ser estruturado de alguma outra forma?

[Patropi]

Daniel

 

O código deve ser colado desta forma:

 

Sub CalculaUmaVez()
ActiveSheet.EnableCalculation = True
ActiveSheet.EnableCalculation = False
End Sub

Se foi útil.clique em Curtir

 

[]s

[Daniel.f.Oliveira]

Em 12/10/2014 às 19:28, osvaldomp disse:

23 minutos atrás, Patropi disse:

Daniel

 

O código deve ser colado desta forma:

 

Sub CalculaUmaVez()
ActiveSheet.EnableCalculation = True
ActiveSheet.EnableCalculation = False
End Sub

Se foi útil.clique em Curtir

 

[]s

Muito últil!

Obrigado!

 

[Daniel.f.Oliveira]

Em 12/10/2014 às 19:28, osvaldomp disse:

 

30 minutos atrás, Daniel.f.Oliveira disse:

Existe a possibilidade de alterar esse código de forma que o cálculo automático seja habilitado somente por macro mesmo após o fechamento do arquivo? Esse código funciona enquanto a planilha está aberta, porém o fechar e reabrir esse arquivo do excel, o cálculo volta a ser autômático. Agradeço desde já a ajuda.

 

[Daniel.f.Oliveira]

Existe a possibilidade de alterar esse código de forma que o cálculo automático seja habilitado somente por macro mesmo após o fechamento do arquivo? Esse código funciona enquanto a planilha está aberta, porém o fechar e reabrir esse arquivo do excel, o cálculo volta a ser autômático. Agradeço desde já a ajuda.

[Visitante]

Ao ser reaberto o arquivo o código abaixo muda o recálculo da "Plan1", somente dela, para o modo Manual.

Instale o código no módulo de "EstaPasta_de_trabalho". Para testar salve, feche e reabra o arquivo.

Se não for isso que você procura descreva com exatidão o seu objetivo.

 

Private Sub Workbook_Open()
 Sheets("Plan1").EnableCalculation = False
End Sub

 

 

[CasaDoHardware]

Eu usaria assim

 

No modulo da planilha eu usaria assim

 

Private Sub Worksheet_Activate()
Application.Calculation = xlManual
End Sub

 

Private Sub Worksheet_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
 

 

Ou seja quando a aba que desejar que fique manual for ativada a planilha passara para codigo manual. ao sair da aba o a planilha volta a ser automatico..