Çözüldü Kendinden hariç tüm Excel'leri kapatan kendini kapatmayan bencil bir excel lazım :)

[derisa963]

Merhabalar saygılı büyüklerim, kardeşlerim.
Bana kendisi hariç tüm açık olan Excel'leri kaydetmeden kapatan lakin kendisini kapatmayan bir Excel kodu lazım.
Yardımcı olabilecek arkadaşlarım var mı ?

 

[Orion1]

Buyurun.

Sub kaydetmedenkapat()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then wb.Close False
Next
MsgBox "işlem tamam"
End Sub

 

[derisa963]

Teşekkürler İşe yaradı. Sizler için küçük ama benim için büyük bir projemdeki emeğinizi asla unutmayacağım. Saygılar efendim @Orion1

 

[Orion1]

Teşekkürler İşe yaradı. Sizler için küçük ama benim için büyük bir projemdeki emeğinizi asla unutmayacağım. Saygılar efendim @Orion1

Rica ederim.
İyi çalışmalar.

 

[gicimi]

Buyurun.

Sub kaydetmedenkapat()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then wb.Close False
Next
MsgBox "işlem tamam"
End Sub

Evren Abi Merhaba;

Kendisi hariç tüm açık olan Excel'leri kaydedip kapatması için kodda ne gibi değişiklik yapmak gerekir.

 

[kemal turan]

Merhaba,
Konu benim içinde bir sorundu. Sn.Evren beye teşekkürler.
False True yapınca kaydederek kapattı..
If wb.Name <> ThisWorkbook.Name Then wb.Close True

 

[gicimi]

@kemal turan Bey teşekkür ederim. Kolay gelsin.

 

[kemal turan]

Teşekkürler Sn. Evren hocama olsun.
Selametle