ana kitap haricindeki kitapların kapanması

[akd]

Merhaba arkadaşlar,
Benim Ana.xls adında menü kitabım var diger kitapları userformdan açıp kapatmam gerek.
activeworkbooks.close ile kapatmaya çalışıyorum ama hepsi birden kapanıyor .
If ana.xls<>activeworkbooks then
activeworkbooks.close
yaptım olmadı
nasıl yapabilirim
saygılar...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:e8022f5736]For a = Workbooks.Count To 1 Step -1
If Workbooks(a).Name <> "Ana" Then Workbooks(a).Close
Next
[/vb:1:e8022f5736]

 

[Haluk]

Eğer Levent dostumun kodunda bir problem çıkarsa, "Ana" yerine "Ana.xls" olarak deneyin...