Açılışda tüm dosyaları kapat

[kadir78]

İyi günler. Aşağıdaki kodlar ile açık olan workbook ları kapatmak istiyorum fakat sadece bir açık dosyayı kapatıyor. Örnek:
Herhangi 5 adet workbook açık konumda iken
deneme.xlsm dosyasını çalıştırdığımda açık olan 5 dosyayı kapatıp sadece deneme.xlsm açık kalsın istiyorum fakat sadece bir dosyayı kapatıyor. Yardımcı olur musunuz.

Private Sub Workbook_Open()

Dim wb As Workbook
Dim owb as variant
owb = "deneme.xlsm"

For each wb in workbooks

if wb.name <> owb then
wb.close savechanges:=true
Msgbox "Açık Sayfalar Kapatıldı"
End if

Next wb

End sub

 

[dEdE]

Forumda arama yapılırsa daha fazlası bulunabilir.

Kodun Bulunduğu Excel Dışındaki Excel Dosyalarını Kapatma

Arkadaşlar, Kullandığım "X" isimli dosyasının içine öyle bir kod atmak istiyorum ki X isimli excel dosyası dışındaki tüm excel dosyalarını kapatsın. Bu mümkün mü acaba?

www.excel.web.tr

Açık olan tüm excelleri kapatma

Günaydınlar, Gün içeresinde o kadar çok farklı excel çalışma kitabı açıyorum artık kapatmaktan sıkıldım ,excel değil klasör olsaydı görev çubuğunda tüm pencereleri kapat diyerek hepsi kapanıyor fakat excel olunca işlev görmüyor ya birini kapatıyor yada kaydedilsin mi diye soruyor ,BEnim...

www.excel.web.tr

 

[kadir78]

Forumda arama yapılırsa daha fazlası bulunabilir.

Kodun Bulunduğu Excel Dışındaki Excel Dosyalarını Kapatma

Arkadaşlar, Kullandığım "X" isimli dosyasının içine öyle bir kod atmak istiyorum ki X isimli excel dosyası dışındaki tüm excel dosyalarını kapatsın. Bu mümkün mü acaba?

www.excel.web.tr

Açık olan tüm excelleri kapatma

Günaydınlar, Gün içeresinde o kadar çok farklı excel çalışma kitabı açıyorum artık kapatmaktan sıkıldım ,excel değil klasör olsaydı görev çubuğunda tüm pencereleri kapat diyerek hepsi kapanıyor fakat excel olunca işlev görmüyor ya birini kapatıyor yada kaydedilsin mi diye soruyor ,BEnim...

www.excel.web.tr

2 kodlamayıda denedim sonuç aynı sadece 1 adet workbook kapanıyor. 1 den fazla workbook açıksa sadece bir önce aktif olan workbook kapanıyor diğerleri açık kalıyor. Bu konuda başka bir yöntem varmıdır.

 

[Kumpasta]

selam

Sub TümDosyalarıKapatVeDenemeXlsmAçıkBırak()

Dim wb As Workbook

For Each wb In Workbooks
    If wb.Name <> "deneme.xlsm" Then
        wb.Close SaveChanges:=True
    End If
Next

End Sub