Limite o tempo de uso de suas planilhas
21/05/2010 17:11
Neste caso a planilha ficará aberta por 10 segundos, irá salvar e fechar.
Private Sub Workbook_Open()
Dim PauseTime, Start
PauseTime = 10
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
ThisWorkbook.Saved = True
Application.Quit
End Sub