Bütün çalışma kitaplarının kapattırılması...

[ozgurmath]

Merhaba arkadaşlar;

Benim Belgerim Klasörümde İNDEX , DATA ,OGR , GRAFİK , SORGU isminde
çalışma kitaplarım var.

İNDEX kitabımı açtığımda diğer kitaplarda açılıyor.

Acaba İNDEX kitabımdaki bir KAPAT tuşu yardımıyla , İNDEX ve diğer kitaplar direkt ( kaydet olayı olmadan ) kapatılabilir mi?

TEÞEKKÜRLER...

 

[aduhan22]

sub_kapat
activeworkbook.save
aplication.quit
end sub

 

[Levent Menteşoğlu]

Sn aduhan22'nin verdiği kodu biraz daha otomatikleştirirsek

butona gerek olmadan index kitabını kapatınca diğer kitaplarıda kapatacaktır. Kodu index kitabındaki bir module kopyalayın.

[vb:1:305e2a45b3]Sub auto_close()
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub[/vb:1:305e2a45b3]