Salve ragazzi, sono ancora qui che rompo.
Allora finalmente abbiamo migrato a win7/office 2010 ed ho potuto provare la macro.
Funziona tutto tranne una cosa, per evitare di chiudere tutta l'applicazione excel ma semplicemente il file in uso, ho provato a modificare la macro suggerita sostituendo "Application.Quit" con "thisWorkbook.close".
Effettivamente il file si chiude (dopo il salvataggio) ma si riapre da solo in loop.
Cosa ho sbagliato ? Allego di seguito la macro come è adesso:
In ThisWorkbook:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "Chiudi"
Application.OnTime Now, "Countdown"
End Sub
In Modulo:
Private Sub Countdown()
Sheets(1).[c2] = TimeValue("00:00:30")
Visualizza
End Sub
Private Sub Visualizza()
Dim TempoRimanente As Date
TempoRimanente = ActiveSheet.Range("C2")
Sheets(1).[c2] = TempoRimanente - TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "Visualizza"
End Sub
Private Sub Chiudi()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Grazie ed auguri a tutti di un sereno e prospero 2014



Application.Quit