VBA Excel - Fechando uma planilha com Timer - Close an Excel workbook using a timer

Termo de Responsabilidade 

Que tal fechar a sua planilha caso esta fique aberta por tempo demais?

Private Sub Workbook_Open()

    Let CloseAs = CDbl(Now + 5 / 86400)

    SetClosingTime

End Sub

Coloque o código abaixo num novo módulo:

Public CloseAs      As Double

Sub SetClosingTime()

    Application.OnTime CloseAs, "CloseWorkbook", , True

End Sub

Sub CloseWorkbook()

    With ThisWorkbook

        .Save

        .Close

    End With

'   Remove the line below to close the application

'   Application.Quit

End Sub

Referências: 

Tags: VBA, Word, number, sequencial, número