Açılışta Üç Kere Şifre Hakkı Vermek

Açılışta Üç Kere Şifre Hakkı Vermek isimli kod ile, bir Excel dosyasının açılışında şifre sordurabilir, 3 kez deneme hakkı vermeyi sağlayabilirsiniz.

XD Destek İste
Sub auto_open()
Static XDSayac As Integer
    Do
    If XDSayac = 3 Then
        ThisWorkbook.Close False
    Else
        If InputBox("Şifreyi girin") = "1" Then
            GoTo devam
        Else
            XDSayac = XDSayac + 1
        End If
    End If
    Loop
devam:
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Yorumları Yazdırma
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Aktif Satırı ve Sütunu Vurgulama
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Makrolar ile Eliptik Form Oluşturma
Hücrenin Arka Plan Rengini Değiştirme
Toplu Sütun Silme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Aktif Çalışma Sayfası Korumasını Kaldırma
Hatalı Hücreleri Renklendirme
Dolar Okutma Makrosu
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Excel Sayfalarında Çarpım Tablosu Oluşturma
Tüm Boş Çalışma Sayfalarını Silme
Dizileri Döngüye Eklemek
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Excel Makroları ile Klasör Arama
Seçili Aralığı PDF Olarak Kaydetme
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
ListBbox ve ComboBox Satır Kaydırma
Checkbox ile Exceli Kapatıp Açmak
Grafik Türünü Değiştirme
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Tekrar Eden Verileri Farklı Sütunda Yazma
Sütunlardaki Farkı Renklendirme
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Tüm Satırları ve Sütunları Gösterme
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Seçili Hücrelerden Boşlukları Kaldırma
Hücredeki Değere Göre İşlem Yapma
Satırlardaki Farkı Renklendirme
Başka Dosyada Şifreli Userform Oluşturmak
Aktif Hücreye Açıklama Ekleme
Aktif Hücrenin Sütun Numarasını Bulma
Sayfadaki Grafikleri Yeniden Boyutlandırma
Tek Sütunu Kes Kopyala ve Yapıştır
Seçimdeki Alternatif Satırları Vurgulama
Son Sütun Numarasını Bulma
Açılışta Üç Kere Şifre Hakkı Vermek
Bir Aralığa Alfabenin Harflerini Ekleme
Dar Kenar Boşluğu Yazdırma
Bir Aralıktaki Minimum Değeri Renklendirme
Alarmlı Saat Ekleme Kodu
Hücredeki Değere Göre Yeni Sayfa Ekleme
Excel Tam Ekran Yapma
Transparan UserForm Oluşturmak
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Bir sayfanızda bulunan ya da aktarıldığında boş gelen hücrelere hep aynı değer girmeniz gereken hususlar olabilir.

Bu durumda;
  1. Sayfanızda arasında boşlukların bulunduğu veri aralığını seçin,
  2. Şerit Menü'den Giriş -> Bul ve Seç -> Git butonunu tıklayın.
  3. Ekrana gelen pencereden özel seçeneğini tıklayın.
  4. Yine ekrana gelen pencereden Boşluklar'ı seçin ve Tamam'a tıklayın.
  5. Tüm boşluklar seçili olarak gelecektir. Tüm boş hücreler seçiliyken, aktif boş hücreye ne istiyorsanız yazın ve Ctrl ve Enter tuşlarına birlikte basın.
Bu işlemin neticesinde, seçili alandaki tüm boşluklar artık yazdığınız değere ile doldurulmuş olacaktır.

Son olarak;
Sosyal Medya'da paylaşıp daha fazla kişinin bu ipucunu öğrenmesine vesile olup, sitemize de erişim için destek olun :)
Yükleniyor...