İki açık sayfadan sadece bir tanesini kapatmak

[Kavinsky]

Merhabalar ve iyi hafta sonları.

İki tane açık olan sayfadan bir tanesini kayıt etmeden hiç bir değişikliği onaylamadan kapamak istiyorum. Makroda yapmaya çalıştım fakat bu sefer kapanmasını istemediğim sayfayı da kapatmaya çalışıyor. Kaydetme dediğimde ise ikisi de kalıyor , kaydet dediğimde ikisi de kapanıyor. Yani açık olan dosyadan bir şey bakmak için açıyorum kapatınca diğerininde kapanmasını istemiyorum.Buna uygun bir kod yazılabilir mi ben butona bağlayayım o kodu .
Teşekkür ederim.
Örnek isim olarak:
Kalmasını istediğim çalışma kitabı ismi : Kitap 1
Kapanmasını ve diğerini etkilemesini istemediğim çalışma kitabına : Kitap 2 diyelim.

 

[alicimri]

sn Kavinsky
iki dosya açıksa bunların açılış sırasına göre index veriyor. bu örnekte sonradan açılan kitabı kaydetmeden kapatıyor.

Sub Makro1()
Application.DisplayAlerts = False
Workbooks(2).Close
Application.DisplayAlerts = True
End Sub

Bu kodda ise dosyanın adına göre kitabı kapatıyor.

Sub Makro1()
Application.DisplayAlerts = False
Workbooks("a.xls").Close
Application.DisplayAlerts = True
End Sub

 

[Kavinsky]

Ali bey yardımlarınız için çok teşekkür ederim. Tam istediğim şekilde olmuş.

iki adet sorum var.

1.Si ilk versiyonda açılış sırasına göre dediniz. Peki 2 adet değil de 10 adet dosya açtık diyelim. İlk açtığımızı bırakıp kalanların hepsini kapaması için ilk kodda ne gibi bir değişiklik yapmak gerekiyor ?

 

[alicimri]

sn Kavinsky
Önemli not makro ilk açılan kitapta olmalı...........

Sub Makro1()
Application.DisplayAlerts = False
For i = 2 to Workbooks.count
Workbooks(2).Close
next
Application.DisplayAlerts = True
End Sub

Kaydedip kapatmak isterseniz, aşağıdaki kodu kullanın.

Sub Makro1()
For i = 2 to Workbooks.count
Workbooks(2).save
Workbooks(2).Close
next
End Sub

 

[Kavinsky]

Yardımlarınız için çok teşekkür ederim.:bravo: