✔ Programação GLOBAL®: VBA Excel - Tornando a inicialização mais rápida

VBA Excel - Tornando a inicialização mais rápida - Speed up Excel Start up (FASTER EXCEL)

Termo de Responsabilidade
Inline image 1

Já se perguntou por que a inicialização do MS Excel ficou tão lenta de uma hora prá outra?

Mesmo quando está utilizando a melhor placa-mãe e o melhor processador disponíveis no mercado, quando inicia o seu MS Excel, ahhh, pode ir tomar um café. Vai gastar uns 30 segundos!

Já foram tentadas muitas coisas, e pessoalmente fiz várias experiências. Dessa vez vou compartilhar um truque, tente também, embora seja um truque ou pode ser a única razão.

E caso dê certo, você vai economizar muito do seu tempo!

Um dos motivos é o de que a Barra de Ferramentas do MS Excel tende a crescer muito, além de ser gravada em um arquivo XML. E daí? Perguntarão os mais incautos. Esse arquivo é carregado ao iniciar o MS Excel!

A extensão deste arquivo .XLB, o local padrão é "Dados de Aplicativos \ Microsoft \ Excel \" e o tamanho normal é entre 10 e 90 KB. O problema surge quando este tamanho atinge alguns MBytes.

Bônus: Apague fisicamente este arquivo, deixando que o MS Excel crie outro automaticamente.

Ônus: A versão da Barra volta para o padrão original. Suas configurações vão embora, mas ajuda no arranque

Onde fica o arquivo nas versões do Windows:

Windows 98 --> "C:\Windows\Application Data\Microsoft\Excel\excel*.XLB"

Windows 98SE/NT/ME --> "C:\Windows\Profiles\USERNAME\Application Data\Microsoft\Excel\excel*.XLB"

Windows 2000/XP --> "C:\Documents and Settings\USERNAME\Application Data\Microsoft\Excel\excel*.XLB"

Windows 7 --> "C:\Users\USERNAME\AppData\Microsoft\Excel\excel*.XLB"

Para aqueles, que como eu, gostam de aproveitar a oportunidade para aprender mais um "códigozinho", segue:

Sub Speedup_Excel()

  Dim fso

  On Error Resume Next

  Set fso = CreateObject("Scripting.FileSystemObject")

  ' Deleta o excel.xlb. Se não existir vai para o próximo.

  fso.DeleteFile VBA.Environ("appdata") & "\Microsoft\Excel\excel*.xlb"

  ' Limpa.

  Set fso = Nothing

End Sub