Saberexcel  - o site de quem precisa aprender macros Microsoft Excel VBA

Esses macros do Aplicativo MS Excel VBA(Visual Basic Application), emite uma mensagem temporária, isto é fecha em alguns segundos, conforme os argumentos atribuidos a subrotina AutoFechaMsgbox, que voce poderá atribuir a sua mensagem um determinado tempo para fechar automaticamente. Espero que o exemplo lhes sejam útil. Fiquem com Deus, Expedito Marcondes

'- - - - - - - - - - - - - - - - - - -  
Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
    oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub
'- - - - - - - - - - - - - - - - - - -  
Sub AutoMessagem()
 AutoFechaMsgBox "Clique em OK ou aguarde", "MsgBox fecha automaticamente", 1
 AutoFechaMsgBox "Alterar o Cadastro de Clientes", "Cadastro de Clientes", 2
 AutoFechaMsgBox "Aprenda Microsoft Excel VBA" & vbCrLf _
               & "Praticando, com os produtos didáticos" & vbCrLf _
               & "Escola SaberExcel", "Curso MS Excel VBA Saberexcel", 2
End Sub
'- - - - - - - - - - - - - - - - - - -  
 
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




   Baixe o exemplo de planilha contendo os macros acima:
Excel planilha vba msgbox fecha automaticamente (105.55 KB)