Varias Formas de Cerrar Un Libro de Excel

Buscando en Internet me encontré con otras macros interesantes de varias formas de Cerrar un Libro de Excel, cada una tiene un botón diferente.

Cerrar Excel con un botón:

Private Sub CommandButton1_Click()
Application.Quit
End Sub

Cerrar Excel sin Notificaciones:

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub

Guardar Libro Activo y Cerrarlo:

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Guardar Todos los Libros Abiertos y Cerrar Excel:

Private Sub CommandButton4_Click()
Dim wb As Workbook
For Each wb In Workbooks
    wb.Save
Next
Application.Quit
End Sub

Esta es un macro que cierra el libro en un tiempo, este código esta para que el libro se cierre en 2 horas 30 minutos, el tiempo se lo pueden modificar, si lo quieren en 1 minuto solo ponen ("00:01:00"), por 10 minutos ("00:10:00"), a si sucesivamente.

Este código va en los eventos del libro (ThisWorkbook)

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("02:30:00"), "closed"

End Sub

y esta va pegado en un Módulo

Sub closed()

    Application.DisplayAlerts = False

    ThisWorkbook.Save

    ThisWorkbook.Close

End Sub

Son las únicas que encontré, de seguro ha de haber mas formas de cerrar un libro, si alguien las tiene puede compartirlas.