Desativar atualização de tela

editar

Achei a resposta pesquisando aqui.

Sub ContarAte20000

Dim i As Integer 

ThisComponent.LockControllers

ThisComponent.EnableAutomaticCalculation(False)

    For i = 0 to 2000

    Next i

ThisComponent.EnableAutomaticCalculation(True)

 ThisComponent.CalculateAll

 ThisComponent.UnlockControllers

End Sub

O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/questi...