Desativar/Ativar Cálculo Automático


#1

Boa tarde amigos do fórum!

Alguém com conhecimento em VBA pode me ajudar criando um script para ativar o cálculo automático apenas em uma planilha?

Trabalho com uma planilha com muitas linhas e muitas fórmulas em cada linha e isso deixa o desempenho muito lento. Desativando o cálculo automático na pasta de trabalho desativa automaticamente para todos os documentos Excel que eu abro.

Gostaria de uma maneira de assim que eu abrir a planilha o VBA desativar o cálculo automático, e quando eu fosse fechar tivesse alguma macro em um botão para reativar o cálculo automático e fechar a planilha. Alguém sabe fazer?: :grin:


#2

Insira esses dois códigos no objeto Workbook da sua pasta de trabalho.

Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub

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

Dessa forma, o calculo ficará manual apenas nessa pasta de trabalho que você inseriu o código.


#3

Solução perfeita! Valeu @xlarruda :+1: