Este fórum está sendo desativado

[Abel]

Boa tarde, gostaria de saber como posso parar o calculo automático de uma planilha(aba) específica.

tenho varias abas, e uma delas tem muita formula que estar pesando a planilha inteira, e gostaria de parar o calculo automático somente dessa aba, via VBA, q assim eu coloco um botão pra quando que quiser atualizar os calculos.

[Jonathaluis]

Não sei se é possível para uma aba específica, mas uso esse aqui:
Application.Calculation = xlCalculationManual

[Abel]

sim, eu conheço este código, porém n funciona para somente uma aba

eu poderia criar um tipo de IF ex:

if worksheets("plan1").select then
Application.Calculation = xlCalculationManual
else
Application.Calculation = xlCalculationAutomatic
end if

mas esse to digitando algo errado nesse if, pq sei la, não funciona.

[Basole]

Experimente este evento, no modulo de EstaPasta_de_trabalho

Código: Selecionar todos

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Sh.Name = "Plan1" Then
        Application.Calculation = xlCalculationManual
    Else
        Application.Calculation = xlCalculationAutomatic
    End If

End Sub

[Abel]

@Basole, @Basole, Mano, eu até consegui fazer com o if, mas, n serve também, porque ao deixar automatico, ele continua calculando a aba cheio de formulas, e a planilha continua pesada e lenta de qualquer forma.

ahi só tendo uma forma de desativar o calcula automatico para uma aba exclusiva, assim, quando estando nas outras a aba com formulas continuaria desativada.

[Jonathaluis]

Abel, o código desliga o cálculo automático para a planilha toda tornando manual, o que você pode fazer é colocar um botão para ligar o cálculo automático quando você precisar (irá calcular a planilha toda), exemplo um botão de salvar. Quando está no modo manual para as funções novas inseridas ainda funciona, e calcula somente a celula que inseriu a nova função.

[Abel]

@Jonathaluis, n, descobri o código para desativar somente uma aba específica, pra quem quiser vou estar deixando ahi.

sheets("Plan1").EnableCalculation = True
sheets("Plan1").EnableCalculation = False