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

kadir78

Altın Üye
Katılım
6 Nisan 2016
Mesajlar
227
Excel Vers. ve Dili
office 2019
Altın Üyelik Bitiş Tarihi
30-12-2026
İ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.

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Forumda arama yapılırsa daha fazlası bulunabilir.
 

kadir78

Altın Üye
Katılım
6 Nisan 2016
Mesajlar
227
Excel Vers. ve Dili
office 2019
Altın Üyelik Bitiş Tarihi
30-12-2026
Forumda arama yapılırsa daha fazlası bulunabilir.
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.
 
Katılım
28 Nisan 2016
Mesajlar
181
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
06-01-2024
selam

C++:
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
 
Üst