Macro para guardar y cerrar todos los libros abiertos

Muchos usuarios de Excel están acostumbrados a trabajar con varios libros abiertos a la vez, varias pueden ser las razones como el hecho de tener fragmentada la información. En lo personal considero que es mucho más óptimo trabajar con la menor cantidad de libros abiertos posibles con lo cual ahorramos recursos como memoria RAM, pero esto ya corresponde a otro post, en éste quiero compartir con ustedes el código macro para guardar y cerrar cada uno de los libros abiertos. 


Supongamos que tenemos 5 libros abiertos, lo que hará esta macro será recorrer cada uno de los libros abiertos guardar y cerrarlo, entra más libros estén abiertos mayor el tiempo que nos ahorraremos en guardar y cerrar cada uno de ellos. Este es el código:

Sub GuardarCerrar()
Dim wbLibro As Workbook

For Each wbLibro In Workbooks
wbLibro.Close True
Next
End Sub

NOTA: Para aquellos libros que pudiesen haber sido creados y modificados, pero que no han sido guardados, nos aparecerá el cuadro de dialogo “Guardar como” para que elijamos que nombre asignarles y donde guardarlos.

Comentarios