Anónimo
Macro para cerrar sin guardar
Hola ojala puedas ayudarme necesito una macro que cierre todos los libros que tengo abiertos sin que me pregunte si quiero guardar, son entre 15 y 25 libros los que tengo que cerrar sin guardar, agradezco su ayuda
Respuesta de Carlos soloffice
1
Esta es la macro que necesitas
Sub CerrarTodoSinGuardar()
Dim wb As Workbook
'Recorremos todos los libros abiertos
For Each wb In Workbooks
'Vamos cerrando los libros menos el que contiene esta macro
If wb.Name <> ThisWorkbook.Name Then
'Poniendo False no se guardan los cambios
wb.Close False
End If
Next
'Si quieres cerrar también el libro que contiene esta macro
ThisWorkbook.Close False
End Sub
Te he puesto comentarios en el código explicando lo que se hace.
Saludos,
Carlos
[email protected]
Sub CerrarTodoSinGuardar()
Dim wb As Workbook
'Recorremos todos los libros abiertos
For Each wb In Workbooks
'Vamos cerrando los libros menos el que contiene esta macro
If wb.Name <> ThisWorkbook.Name Then
'Poniendo False no se guardan los cambios
wb.Close False
End If
Next
'Si quieres cerrar también el libro que contiene esta macro
ThisWorkbook.Close False
End Sub
Te he puesto comentarios en el código explicando lo que se hace.
Saludos,
Carlos
[email protected]
Saludos Experto,
Lamento decirte que usaron mi usuario para hacerte esta pregunta, lo cual me preocupa, pero gracias de antemano, la respuesta es buena y super rápida!
Lamento decirte que usaron mi usuario para hacerte esta pregunta, lo cual me preocupa, pero gracias de antemano, la respuesta es buena y super rápida!