Tüm Çalışma Kitaplarını Aynı Anda Kapatma
12 Nisan 2020
11 Kasım 2021
954
Bu kod ile Tüm Çalışma Kitaplarını Aynı Anda Kapatma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub CloseAllWorkbooks()
Dim wbs As Workbook
For Each wbs In Workbooks
wbs.Close SaveChanges:=True
Next wb
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Tüm açık çalışma kitaplarını kapatmak için bu makro kodunu kullanın. Bu makro kodu önce tüm çalışma kitaplarını tek tek kontrol edecek ve kapatacaktır. Çalışma sayfalarından herhangi biri kaydedilmemişse, kaydetmeniz için bir mesaj alırsınız.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| İlişkili Hücre Aralığı Seçimi Yapma | Ctrl Shift Boşluk |
| Bir Ekran Sağa Git | Alt PgDn |
| Bir Ekran Aşağı Git | PgDn |
| VB Penceresini Açmak | Alt F11 |