Cerra todos los Libros de Excel en su solo Paso |
Una de las cosas más molestas en Excel surge cuando tenemos varios archivos abiertos y tenemos que cerrarlos rápidamente, tal vez porque necesitamos salir con urgencia o simplemente por que terminaos nuestras labores. Para cerrar todos los libro de Excel tenemos que ir uno a uno activándolo, guardar los cambios efectuados hasta el momento y cerrar, bastante tedioso no?. |
Desafortunadamente Excel no provee una manera sencilla de hacer esta tare, sin embargo, elaboremos nuestro propio procedimiento para hacer esto con tan solo un clic. |
Macro La idea es crear una macro que recorra cada libro y cierre los cambios, el código es como sigue: Public Sub CerrarTodosLosLibrosAlMismoTiempo() Dim LibroAbierto As Workbook For Each LibroAbierto In Workbooks LibroAbierto.Close savechanges:=True Next End Sub
Public Sub CerrarTodosLosLibrosAlMismoTiempo() 'Declaración de una variable objeto que puede contener un libro de Excel Dim LibroAbierto As Workbook 'Se recorre todos los libros de Excel abiertos uno a uno For Each LibroAbierto In Workbooks 'Cierra el libro actual (en el recorrido del cilc for) y guarda los cambios LibroAbierto.Close savechanges:=True Next End Sub La ideas es tener esta macro siempre disponible por eso la mejor opción es guardarla en libro Personal de Excel (Si no conoce sobre como implementar macros en el Libro personal puedes ver a partir del minuto (21:20) de la sesión número de la serie dedicad a Macros, clic aquí)
Si los desea puede seguir estos pasos para tener disponible siempre la maro: 1. Copie el código de arriba con o sin comentarios 2. Active el Editor de Visual Basic para esto presione la combinación de teclas Alt + F11 3. Clic derecho en Personal.xlsb (sino tiene activado el explorador de proyectos presione Ctrl + R) 4. Insertar un módulo (Menú Insertar -> Módulo) 5. Pegue el código
|