Parceria RicardoHorta.Net + SUBMARINO !!

Propriedade DisplayScrollBars - Aplica-se ao objeto.

• Application.

Função.

• Exibe / oculta as barras de rolagem.

Sintaxe

• Application + . + DisplayScrollBars = True ou False.

Exemplo.

• Para ocultar as barras de rolagem, horizontal e vertical, ao mesmo tempo, utilizando VBA, pressione [ Alt ] + [ F11 ] ou clique em Ferramentas, Macro, Editor do Visual Basic.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na caixa Geral, selecione Workbook e...

• ... a procedure referente ao evento Open será criada.

• Digite Application, seguido de um ponto ( . ).

• No menu, escolha DisplayScrollBars.

• Acrescente o sinal de igual ( = ) e clique 2 vezes em False.

• O código ficará assim.

Testando.

• Retorne à tela do Excel XP.

• Salve as alterações e feche a pasta de trabalho.

• Abra-a, novamente.

• Clique em Ativar macros.

• As barras de rolagem serão desativadas.

• Com o código Application.DisplayScrollBars=False, você desativa as barras de rolagem de todas as pastas de trabalho.

Retornando o padrão.

• Para ativar as barras de rolagem, você pode utilizar o evento BeforeClose da pasta de trabalho.
• Abra a tela do Editor do VBA.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na janela Procedimento, selecione o evento BeforeClose.

• E digite: Application.DisplayScrollBars = True.

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

RicardoHorta.Net

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

www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta