Exiba uma mensagem no Excel conforme a hora do dia!

Vamos elaborar uma aplicação onde ao abrir a planilha em questão é exibida uma mensagem de “bom dia”, “boa tarde” ou “boa noite”e o nome do usuário conforme o horário do sistema operacional. Abra a janela do VBA teclando Ctrl + F11. No VBA clique em Inserir/Módulo e digite o seguinte código:

Sub mensagens()
Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora
Case 1 To 5
MsgBox “Bom Noite” & Application.UserName
Case 6 To 11
MsgBox “Bom Dia ” & Application.UserName
Case 12 To 17
MsgBox “Bom Tarde ” & Application.UserName
Case 18 To 24
MsgBox “Bom Noite ” & Application.UserName
End Select
End Sub

Com o comando Application.UserName é extraido o nome cadastrado no Excel.
Agora na opção “EstaPasta_de_trabalho” (na barra Projeto, bem acima da caixa Propriedades) no evento Workbook_Open digite:

call mensagens

Salve o aquivo e feche-o. Agora abra novamente e confira o resultado.