Executar automaticamente uma macro ao abrir uma pasta de trabalho

Talvez você queira que uma macro que gravou seja executada automaticamente quando você abrir uma pasta de trabalho específica. O procedimento a seguir usa um exemplo para mostrar a você como isso funciona. Você também pode querer executar macros automaticamente quando o Excel for iniciado.

Antes de começar, verifique se a guia Desenvolvedor aparece na faixa de opções. Se não estiver lá, siga este procedimento:

  1. Clique em Arquivo > Opções > Personalizar Faixa de Opções.

  2. Em Personalizar a Faixa de Opções, na caixa Guias Principais, marque a caixa Desenvolvedor.

  3. Clique em OK.

Para usar o exemplo abaixo em sua própria pasta de trabalho, crie planilhas para cada dia do mês e nomeie cada guia da planilha de acordo com eles. Por exemplo, nomeie-as como 1 de março, 2 de março e assim por diante, até 31 de março. A macro será executada automaticamente quando você abrir a pasta de trabalho que mostra a guia referente ao dia atual do mês.

  1. Clique em Desenvolvedor > Visual Basic.

Grupo Código na guia Desenvolvedor

  1. Clique em Inserir > Módulo.

  2. No módulo, insira o seguinte código:

    Private Sub Auto_Open()
    Dim vntToday As Variant
    vntToday = WorksheetFunction.Text(Date, "mmmm dd")
    On Error Resume Next
    Sheets(vntToday).Select
    If Err <> 0 Then
    MsgBox "A planilha não existe."
    Else
    Range("A1").Select
    End If
    End Sub

  3. Feche o Visual Basic (não é necessário salvar nada).

  4. Salve a pasta de trabalho como uma Pasta de Trabalho Habilitada para Macro do Excel (*xlsm) e feche-a.

Na próxima vez que você abrir a pasta de trabalho, a guia referente ao dia atual será selecionada, com o cursor na célula A1. Se a planilha do dia não existir, a mensagem “Planilha não existe” será exibida.

Dica :  Você pode criar uma nova pasta de trabalho para cada mês e criar a macro novamente para a nova pasta de trabalho

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×