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

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



Nenhum comentário:

Postar um comentário

diHITT - Notícias