Saberexcel - o site de quem precisa aprender macros microsoft excel vba

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando a função Timer, fechará a planilha em determinados segundos, neste caso estabelecemos oito segundos para o macro fechar o livro. ' Workbook '
Espero que o exemplo possa lhe ser útil. Fique com Deus. Expedito Marcondes

Função Timer vba retorna partes fracionárias de um segundo. No Macintosh, a resolução do timer é um segundo

Sub md_fechar_wkb_cinco_segundos()
Dim vTempoPausa, vInicio

vTempoPausa = 8 ' oito segundos após a execução do Macros
[A1].Value = vTempoPausa
MsgBox "esta planilha será fechada em [ " & [A1].Value & " ] segundos"
[c5].Value = "esta planilha será fechada em [ " & [A1].Value & " ] segundos"
vInicio = Timer
Do While Timer < vInicio + vTempoPausa
DoEvents
Loop

ThisWorkbook.Saved = True
Application.Quit
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.