Fechar automaticamente um Workbook após um tempo determinado

Se pretendermos efectuar o encerramento automático de um WorkBook algum tempo após a abertura do mesmo, podemos utilizar o Método OnTime.

 O código deverá ser agregado ao módulo de código do WorkBook (ThisWorkBook).

 

Exemplo para fechar o WorkBook após 10 minutos de actividade:

 

Private Sub WorkBook_Open()

      Application.OnTime Now + TimeSerial(0, 10, 0), “Fecha_WB”

End Sub

 

Public Sub Fecha_WB()

     With ThisWorkbook

         . Save

         . Close

     End With

End Sub