Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

Mostrando postagens com marcador rápida. Mostrar todas as postagens
Mostrando postagens com marcador rápida. Mostrar todas as postagens

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

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





Tags: VBA, Excel,, quick, fast, inicialização, rápida, start, faster 









diHITT - Notícias