UserForm Açılınca Sayfayı Gizleme

Bu dosya, açılışta Excel penceresini gizleyip yalnızca bir UserForm gösteren makrolu bir telefon rehberi örneğidir. Firma ve kişi kayıtları form üzerinden aranır, eklenir, silinir ve adres etiketi olarak yazdırılır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• AnaSayfa: Formu açan buton burada yer alır. Sayfada veri bulunmaz.
• data: E sütununda telefon kategorileri tutulur (başlık: TEL. KATEGORİ). Form bu listeden kategori seçeneklerini doldurur.
• telefon: Kayıtların tutulduğu ana sayfadır. Sütunlar: İSİM / FİRMA, kategori, İLGİLİ KİŞİ, telefon, TEL. 2, faks ve ADRES.
• adres: "TESLİM ALACAK FİRMA" başlıklı küçük etiket alanıdır. Form, seçilen firmanın bilgilerini buraya yazıp yazdırır.

Dosyada formül bulunmaz, işlemlerin tamamı VBA ile yapılır.

Makrolar​

• Autpen: Dosya açılınca pencere ayarlarını yapar. Başka açık pencere yoksa Excel uygulamasını, varsa yalnızca bu çalışma kitabının penceresini gizler, ardından UserForm2'yi gösterir.
• formac1: UserForm2'yi açar. AnaSayfa ve Sayfa1 üzerindeki buton (CommandButton1_Click) da formu bu şekilde açar.
• telefon_sayfasi, data_sayfasi, combo_filtre: telefon ve data sayfalarındaki kayıtları form içindeki ComboBox ve ListBox kutularına yükler. Kategori seçilince listeyi o kategoriye göre süzer.
• cmbisimtel_Change: Seçilen isme göre kişi, telefon, faks, kategori ve adres bilgilerini form kutularına getirir. Kayıt yoksa uyarı verir.
• Kaydet butonları: Yeni kategori ve yeni telefon kaydı ekler. Aynı kayıt varsa uyarır, zorunlu alanlar (isim, telefon, kategori) boşsa kaydetmez. Ekledikten sonra A-Z sıralar.
• Sil butonu: ListBox'ta seçilen kaydın satırını telefon sayfasından siler.
• Yazdır butonu: Seçili firmanın adı, adresi ve telefonunu adres sayfasına yazar ve belirtilen adette yazdırır.
• Kapat ve Göster butonları: Kapatma onayı sorar, dosyayı kaydedip kapatır. Gizlenen Excel'i tekrar görünür yapan buton ise bir şifre sorar. Kodda bu şifre 123 olarak tanımlıdır.

Kodda dosya silme ya da dışarıya bağlantı işlemi görülmedi. Silme işlemi yalnızca telefon sayfasındaki seçili kayıt satırı içindir. Dosyada ayrıca eski bir Access veritabanı yolu içeren tanımlı ad bulunur, ancak makrolar bunu kullanmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin. Form otomatik olarak açılır.
2. Kayıt aramak için isim listesinden seçim yapın ya da kategoriye göre süzün.
3. Yeni kayıt için isim, telefon ve kategori alanlarını doldurup kaydedin.
4. Adres etiketi için firmayı seçin, kopya sayısını girin ve yazdırın.
5. Excel'i görmek için gösterme butonuna basıp şifreyi girin. Formu AnaSayfa'daki butonla yeniden açabilirsiniz.