Otomatik Açılan Kapanan Başlıksız UserForm

Bu dosya, Excel'de belirli bir hücre aralığına tıklandığında başlık çubuğu olmadan açılan, aralık dışına tıklandığında otomatik kapanan bir UserForm örneğidir. Form, çalışma kitabındaki sayfaların listesini gösterir ve seçilen sayfaya geçiş sağlar.

Dosyanın içeriği​

• BARAN: Görünür olan tek sayfadır. UserForm bu sayfadaki A2:A10 hücrelerine tıklandığında açılır.
• Sayfa2 - Sayfa10: Gizli durumdaki dokuz sayfadır. Form listesinden seçildiklerinde görünür hale gelirler.
• UserForm1: Sayfa adlarını listeleyen ListBox1 denetimini içeren başlıksız form.

Dosyada formül bulunmaz; tüm işleyiş VBA koduyla sağlanır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar olay tabanlıdır, ayrıca çalıştırılmaz.

• Workbook_SheetSelectionChange: Seçilen hücre A sütununda ve 2. ile 10. satırlar arasındaysa UserForm1 açılır; değilse form kapatılır.
• Workbook_SheetActivate: Bir sayfa etkinleştiğinde etkin sayfa dışındaki tüm sayfaları gizler ve formu açar.
• UserForm_Initialize: Formu etkin hücrenin satırına ve A sütununun sağına konumlandırır, ListBox1 listesini çalışma kitabındaki sayfa adlarıyla doldurur.
• UserForm_activate: user32 kütüphanesindeki FindWindowA, GetWindowLongA ve SetWindowLongA API fonksiyonlarıyla form penceresinin başlık çubuğunu ve çerçevesini kaldırır; formu yeniden gösterir.
• ListBox1_Click: Listeden seçilen sayfayı görünür yapar, diğer sayfaları gizler ve formu kapatır.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur. Yalnızca pencere görünümünü değiştiren Windows API çağrıları kullanılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. BARAN sayfasında A2:A10 aralığındaki bir hücreye tıklayın; başlıksız form açılır.
3. Listeden gitmek istediğiniz sayfanın adına tıklayın; sayfa görünür olur, diğerleri gizlenir ve form kapanır.
4. Aralık dışında bir hücreye tıkladığınızda form otomatik kapanır.

Form konumu ve tıklama aralığı, makro kodundaki satır ve sütun koşullarından değiştirilebilir.