0025-Utilizando eventos do Excel – Parte 3

Concluindo nossos exemplos sobre uso de eventos no Excel, vamos ver exemplos utilizando os eventos do objeto Workbook.

Primeiramente o evento Workbook_Open, que ativado quando o arquivo é aberto.
No exemplo a seguir são realizadas uma série de alterações no modo em que o arquivo do Excel é exibido.

Private Sub Workbook_Open()


Dim Plan


'Faz que o código continue sendo executado caso ocorra um erro
On Error Resume Next


'Alteração dos parâmetros de exibição do Excel
With Application
    'Ativar exibição de tela inteira
    .DisplayFullScreen = True
    'Desativar a exibição da barra de fórmulas
    .DisplayFormulaBar = False
    'Desativar a exibição da barra de status
    .DisplayStatusBar = False
End With


'Alteração dos parâmetros de exibição da janela
With ActiveWindow
    'Desativar a exibição dos cabeçalhos
    .DisplayHeadings = False
    'Desativar a exibição da barra de rolagem horizontal
    .DisplayHorizontalScrollBar = False
    'Desativar a exibição da barra de rolagem vertical
    .DisplayVerticalScrollBar = False
    'Desativar a exibição das guias de planilha
    .DisplayWorkbookTabs = False
End With


For Each Plan In ThisWorkbook.Worksheets
    'Manter exibida apenas a planilha "Principal
    If Plan.Name  "Principal" Then Plan.Visible = False
Next


End Sub

É interessante desfazer as alterações que afetam o Excel (Application) quando o arquivo é fechado. Para isso podemos lançar mão do evento Workbook_BeforeClose.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Faz que o código continue sendo executado caso ocorra um erro
On Error Resume Next


'Restauração dos parâmetros de exibição do Excel
With Application
    'Inibir exibição de tela inteira
    .DisplayFullScreen = False
    'Ativar a exibição da barra de fórmulas
    .DisplayFormulaBar = True
    'Ativar a exibição da barra de status
    .DisplayStatusBar = True
End With
End Sub
Anúncios

In Excel We Trust

Marcado com: , ,
Publicado em Nível: Avançado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,069,536

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.534 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: