VBA Kullanarak Bölmeleri Dondurun
Geçenlerde Excel'deki Dondurma bölmelerinde yayınladım, VBA kullanarak bunu nasıl yapabileceğiniz aşağıda açıklanmıştır:
Satırları Dondur
Rows("1:1").ActiveWindow'u seçin.FreezePanes = True
Sütunları Dondur
Range("A:A"). ActiveWindow'u seçin.FreezePanes = True
Satırları ve Sütunları Dondur
Range("B2").ActiveWindow'u seçin.FreezePanes = True
Bölmeleri Çöz
ActiveWindow.FreezePanes = Yanlış
Çalışma Kitabını Bölmeleri Dondurmadan Kaydetmeye Zorlayın
Excel, olayları olaylar aracılığıyla kontrol etmemizi sağlar. Bu makale, olayların ne olduğu veya özellikleri hakkında ayrıntılı bir tartışma değildir. Bunun yerine bir Çalışma Kitabı Etkinliği örneği verir. Bunlar, belirli bir çalışma sayfası yerine çalışma kitabı düzeyinde düzenlenen etkinliklerdir.
VBA aracılığıyla, yazdırmadan önce veya kaydetmeden önce gibi belirli olaylarda ne olacağını kontrol edebiliriz. Karşılaştığım yaygın bir sorun, birlikte çalıştığım bazı kişilerin üzerlerinde Bölmeleri Dondur olan dosyaları sevmemesi.
Bu yazıda, Bölmeleri Dondur'un açık olup olmadığını kontrol edecek ve açıksa dosyayı kaydetmeyecek bazı kodları bir araya getireceğiz. Bu, camları dondurmadan kaydetmem gerektiği anlamına geliyor - meslektaşlarımı mutlu etmek !!
Çalışma kitabı olaylarıyla ilgili en önemli şey, bunların doğru yere - çalışma kitabı düzeyinde - kaydedilmeleri gerektiğidir.
Çalışma kitabı düzeyine erişmek için aşağıdaki adımları izleyin:
1. Bir Excel çalışma kitabına sağ tıklayın - kodu görüntüleyin:
2. Bu şunları getirecektir:
3. “Bu Çalışma Kitabı”na çift tıklayın ve ardından sol taraftaki ilk açılır menüden “Çalışma Kitabı”nı seçin:
Sol taraftaki değerin şimdi Çalışma Kitabı Açık Etkinliği için bazı kodlarla birlikte “Aç” olarak değiştiğini görüyoruz. Bu kod, çalışma kitabı ilk kez açıldığında ne olacağını belirlememize izin verecektir.
Ancak, çalışma kitabını kaydettiğimizde ne olacağını kontrol etmek istiyoruz. Bu nedenle, sağdaki açılır menüyü “Kaydetmeden Önce” olarak değiştirin. Ekran şimdi şöyle görünecek:
Şimdi bildirimden sonra aşağıdaki kodu ekliyoruz:
ActiveWindow.FreezePanes = True ise MsgBox "Bölmeleri Dondur açık - Dosya KAYDEDİLMEDİ" İptal = True End If
Böylece kodun tamamı şimdi şöyle görünür:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveWindow.FreezePanes = True ise MsgBox "Bölmeleri Dondur - Dosya KAYDEDİLMEDİ" İptal = End Sub ise True End
Şimdi dosyayı kaydedin ve SONRA herhangi bir pencerede Bölmeleri Dondur'u etkinleştirin. Ardından - Dosyayı YENİDEN KAYDEDİN. “Bölmeleri Dondur”un açık olduğunu belirten bir mesaj kutusu görünecektir - ve dosya kaydedilmez.
Aslında dosya, Bölmeleri Dondur kaldırılana kadar kaydedilmeyecektir.
