Vba
Transferir como PPS, PDF0 gostou561 visualizações
Este documento descreve macros de autoexecução no Excel. A macro Auto_Open oculta elementos da interface como barras de ferramentas e rolagem e exibe uma mensagem de boas-vindas. A macro Auto_Close reexibe os elementos ocultos e exibe uma mensagem de despedida antes do fechamento do arquivo.
![Sub auto_close() Application.CommandBars("standard").Visible = True Application.CommandBars("formatting").Visible = True With ActiveWindow .DisplayGridlines = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True End With With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With MsgBox "Até Logo", vbInformation, "Tenha um excelente dia" End Sub A macro abaixo, reexibe os objetos ocultos pela macro Auto_Open e para e para que seja executada antes que a pasta de trabalho seja fechada, deve ter o nome de Auto_Close : Professor Jhonny Lopes [email_address] http://excelcomvba.com.via6.com](https://image.slidesharecdn.com/vba-091016124400-phpapp02/85/Vba-2-320.jpg)
Vba
- 1. Sub auto_open() With ActiveWindow .DisplayGridlines = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False End With With Application .DisplayFormulaBar = False .DisplayStatusBar = False End With Application.CommandBars("standard").Visible = False Application.CommandBars("formatting").Visible = False MsgBox "Seja bem Vindo(a)", vbInformation, " Bem Vindo(a)" End Sub Auto Macros As macros de auto execução ( auto macros ), são aquelas que são executadas com a ocorrência de um evento. Essa macro ocultará os cabeçalhos de linhas e colunas, as barras de rolagens Horizontal e Vertical, as guias das planilhas e as barras de ferramentas Padrão e Formatação , e será executada sempre que a pasta de trabalho em que ela estiver armazenada for aberta:
- 2. Sub auto_close() Application.CommandBars("standard").Visible = True Application.CommandBars("formatting").Visible = True With ActiveWindow .DisplayGridlines = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True End With With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With MsgBox "Até Logo", vbInformation, "Tenha um excelente dia" End Sub A macro abaixo, reexibe os objetos ocultos pela macro Auto_Open e para e para que seja executada antes que a pasta de trabalho seja fechada, deve ter o nome de Auto_Close : Professor Jhonny Lopes [email_address] http://excelcomvba.com.via6.com