Cerrar todos los libros abiertos

Que tal algo asi:

Sub test()
Dim wb As Workbook
With ThisWorkbook
For Each wb In Workbooks
Select Case wb.Name
Case .Name 'ignorar
Case "Libro1.xls", "Libro21.xls" 'guardar
wb.Close True
Case Else 'no guardar
wb.Close False
End Select
Next wb
.Save
.Close
End With
End Sub

KL


"Marvin" wrote in message
news:

Gracias KL, funciona correctamente, pregunta?.. Y si quiero que algunos si
guarde los cambios y otros no?... donde coloco los nombres??

Gracias.

"KL" escribio:

creo que es porque el libro que contiene el codigo se cierra a si mismo
primero. prueba esto:

Sub test()
Dim wb As Workbook
With ThisWorkbook
For Each wb In Workbooks
If wb.mame <> .Name Then
wb.Save
wb.Close
End If
Next wb
.Save
.Close
End With
End Sub

Saludos,
KL


"KL" wrote in message
news:%23Pp%
> Hola Marvin,
>
> 1) guardando:
>
> Sub test()
> Dim wb As Workbook
> For Each wb In Workbooks
> wb.Save
> wb.Close
> Next wb
> End Sub
>
> 2) sin guardar:
>
> Sub test()
> Dim wb As Workbook
> For Each wb In Workbooks
> wb.Close False
> Next wb
> End Sub
>
>
> Saludos,
> KL
>
>
> "Marvin" wrote in message
> news:
>> Saludos Grupo, Alguien conoce la instruccion para cerrar todos los
>> libros
>> abiertos guardando cambios en todos y de igual manera sin guardar
>> cambios
>> en
>> todos. Gracias.
>
>

PERFECTO¡¡¡, GRACIAS

"KL" escribió:

Que tal algo asi:

Sub test()
Dim wb As Workbook
With ThisWorkbook
For Each wb In Workbooks
Select Case wb.Name
Case .Name 'ignorar
Case "Libro1.xls", "Libro21.xls" 'guardar
wb.Close True
Case Else 'no guardar
wb.Close False
End Select
Next wb
.Save
.Close
End With
End Sub

KL


"Marvin" wrote in message
news:
> Gracias KL, funciona correctamente, pregunta?.. Y si quiero que algunos si
> guarde los cambios y otros no?... donde coloco los nombres??
>
> Gracias.
>
> "KL" escribio:
>
>> creo que es porque el libro que contiene el codigo se cierra a si mismo
>> primero. prueba esto:
>>
>> Sub test()
>> Dim wb As Workbook
>> With ThisWorkbook
>> For Each wb In Workbooks
>> If wb.mame <> .Name Then
>> wb.Save
>> wb.Close
>> End If
>> Next wb
>> .Save
>> .Close
>> End With
>> End Sub
>>
>> Saludos,
>> KL
>>
>>
>> "KL" wrote in message
>> news:%23Pp%
>> > Hola Marvin,
>> >
>> > 1) guardando:
>> >
>> > Sub test()
>> > Dim wb As Workbook
>> > For Each wb In Workbooks
>> > wb.Save
>> > wb.Close
>> > Next wb
>> > End Sub
>> >
>> > 2) sin guardar:
>> >
>> > Sub test()
>> > Dim wb As Workbook
>> > For Each wb In Workbooks
>> > wb.Close False
>> > Next wb
>> > End Sub
>> >
>> >
>> > Saludos,
>> > KL
>> >
>> >
>> > "Marvin" wrote in message
>> > news:
>> >> Saludos Grupo, Alguien conoce la instruccion para cerrar todos los
>> >> libros
>> >> abiertos guardando cambios en todos y de igual manera sin guardar
>> >> cambios
>> >> en
>> >> todos. Gracias.
>> >
>> >
>>
>>
>>