Perfil MVP
Autenticação
Online
Nenhum
Fechar automaticamente um Workbook após um tempo determinado
Sábado, 03 Dezembro 2011 01:18 | Actualizado em Sábado, 03 Dezembro 2011 01:19 | 
Escrito por Jorge Rodrigues | 
| 
| 
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