[Excel] Chiudere un foglio in automatico

[ibernet]

Originariamente inviato da NonCeLaFaccio+
Un'altra cosa a cui badare è che nelle opzioni di Excel --> Centro Protezione --> Impostazioni centro protezione --> Opzioni privacy non sia checkata la casella Rimuovi le informazioni ... altrimenti l'Application.Quit fa comparire un messaggio e si ferma in attesa di una risposta.

Meglio fare così:

Private Sub Chiudi()
   Application.DisplayAlerts = False
   ThisWorkbook.Save
   Application.Quit
End Sub

Così gli avvisi si disattivano alla chiusura.