SUBMARINO: Fácil ! Rápido ! Seguro !

Newsletter

Excel XP: Ativando / desativando barras de rolagem com VBA

• Você pode ocultar as barras de rolagem ao exibir determinada planilha.

• Abra a tela do Editor do VBA.

• Clique 2 vezes em EstaPasta_de_trabalho.

• Na caixa Objeto, selecione Workbook.

• Open, o evento padrão do objeto Workbook será criado.

• Insira a linha: Worksheets("TelaInicial").Activate, para sempre abrir a pasta de trabalho com a planilha TelaInicial ativada.
• Substitua TelaInicial pelo nome da planilha que você deseja ativar, ok ?

• Em seguida, com .DisplayHorizontalScrollbar=False e .DisplayVerticalScrollbar=False, desative as barras de rolagem.

Evento Activate

• Na tela do Projeto, clique 2 vezes em TelaInicial.

• Na caixa Objeto, selecione Worksheet.

• Ignore o evento padrão da planilha.

• Na caixa Procedimento, escolha Activate.

• Se quiser, exclua a procedure relativa ao evento SelectionChange.

• E inclua as linhas abaixo.
• Atenção: Não se esqueça do ponto ( . ) antes das propriedades.

Evento Deactivate.

• Retorne à caixa Procedimento e escolha o evento Deactivate, que ocorre quando a planilha ( no caso, TelaInicial ) perder o foco.

Perder o foco ?!

• No bom e sarado Português: Quando o usuário clicar em outra guia: Plan1, Plan2, Planilha1, Planilha2,... enfim, quando o usuário ativar outra planilha.
• Insira as linhas abaixo. Com .DisplayHorizontalScrollBar = True e .DisplayVerticalScrollBar = True você está ativando as barras de rolagem horizontal e vertical.

Teste de São Tomé: Ver para crer.

• Retorne à tela do Excel XP.

• Salve as alterações e feche a pasta de trabalho.
• Em seguida, abra-a, novamente.

• Clique no botão Ativar macros.

• As barras de rolagem serão desativadas.

• Clique em outra guia e as barras serão reativadas.

• Gostou da brincadeira ?
• Então, clique, novamente, na planilha relativa a tela inicial e as barras de rolagem serão, novamente, ocultas.

• As propriedades DisplayHorizontalScrollBar e DisplayVerticalScrollbar ocultam as barras de rolagem apenas para a janela ativa.
• Já a propriedade DisplayScrollBars oculta as mesmas barras para todas as pastas de trabalho abertas.

SUBMARINO: Fácil ! Rápido ! Seguro !

SUBMARINO: Fácil ! Rápido ! Seguro !

15/04/2006 - 14:00 - www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta