Exemplos de Excel VBA: exemplos de eventos introdutórios

A janela de código deve ser semelhante a esta.

Este procedimento de manipulador de eventos é executado quando a pasta de trabalho é aberta.

Workbook_Open é executado automaticamente sempre que a pasta de trabalho é aberta. Ele usa a função WeekDay do VBA para determinar o dia da semana. Se for sexta-feira (dia 6), uma caixa de mensagem lembrará o usuário de enviar um relatório. Se não for sexta-feira, nada acontece.

Se hoje não for sexta-feira, talvez seja difícil testar este procedimento. Você pode apenas alterar o 6 para corresponder ao número do dia real de hoje.

E, claro, você pode modificar este procedimento da maneira que quiser. Por exemplo, a versão a seguir exibe uma mensagem sempre que a pasta de trabalho é aberta. Isso fica irritante depois de um tempo.

Um procedimento Workbook_Open pode fazer quase tudo. Esses manipuladores de eventos costumam ser usados ​​para o seguinte:

• Exibindo mensagens de boas-vindas (como na pasta de trabalho legal de Frank)
• Abrindo outras pastas de trabalho
• Ativando uma planilha específica na pasta de trabalho
• Configurando menus de atalho personalizados

Aqui está um exemplo final do Excel VBA de um procedimento Workbook_Open que usa as funções GetSetting e SaveSetting para controlar quantas vezes a pasta de trabalho foi aberta. A função SaveSetting grava um valor no registro do Windows e a função GetSetting recupera esse valor (consulte o sistema de Ajuda para obter detalhes). O exemplo a seguir do Excel VBA recupera a contagem do registro, incrementa-a e salva-a de volta no registro. Ele também informa ao usuário o valor de Cnt que corresponde ao número de vezes que a pasta de trabalho foi aberta.

Sub Workbook_Open ()
  Dim Cnt enquanto longo
  Cnt = GetSetting ("MyApp", "Configurações", "Abrir", 0)
  Cnt = Cnt + 1
  SaveSetting "MyApp", "Settings", "Open", Cnt
  MsgBox "Esta pasta de trabalho foi aberta" & Cnt & "vezes."
End Sub

Private Sub Workbook_BeforeClose (Cancelar como Booleano)
  Dim Msg As String
  Dim Ans enquanto
  Dim FName As String
  Msg = "Deseja fazer um backup deste arquivo?"
  Resp = MsgBox (Msg, vbYesNo)
  Se Resp = vb Sim, então
    FName = "F: \ BACKUP \" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs FName
  Fim se
End Sub

Sub Livro Privado_BeforeSave (ByVal SaveAsUI _
  Como booleano, cancelar como booleano)
  Dim Counter As Range
  Definir contador = folhas ("Folha1"). Intervalo ("A1")
  Counter.Value = Counter.Value + 1
End Sub

Sub Livro Privado_BeforeSave (ByVal SaveAsUI _
  Como booleano, cancelar como booleano)
  Se SaveAsUI então
    MsgBox "Você não pode salvar uma cópia desta pasta de trabalho!"
  Cancelar = Verdadeiro
  Fim se
End Sub