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

26 Aralık 2020 26 Aralık 2020 1021

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.

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.
50 Farklı Hazır Makro (VBA) Kodu
Sayfadaki Ad Tanımlamaları Silme
Son Satır Numarasını Bulma
Bağlantılı Resim Ekleme
TextBox Nesnelerinin Arasında Boşluk Bırakma
Tüm Satırları ve Sütunları Gösterme
Hedef Aramayı Kullanma
Excel Makroları İle Not Defterini Açmak
Excel Makro ile Hücreye Veri Yazma
Aktif Hücrenin Temel Bilgilerini Bulma
Metni Tersten Yazdırma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Birleştirilmiş Tüm Hücreleri Ayırma
Program Başlangıcı Kodları
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Transparan UserForm Oluşturmak
Negatif Sayıları Poztif Sayıya Çevirme
Veri Giriş Formunu Etkinleştirme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Belirli Bir Metne Sahip Hücreleri Vurgulama
Excel Makroları ile İşlemci Bilgilerini Bulma
Dizileri Döngüye Eklemek
Kullanılan Tüm Sütunları Otomatik Sığdır
Label Nesnesine Kayan Yazı Ekleme
Makro ile Dosya Açma
Makro ile Açılan Liste Oluşturma
Excel Şerit Menü Çubuğunu Gizleme
Şeffaf UserForm Oluşturma Kodu
Seçili Hücrenin Sütun Harfini Bulma
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Aktif Çalışma Sayfası Korumasını Kaldırma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Hücredeki Değere Göre Yeni Sayfa Ekleme
Tekrarlayan Verileri Vurgulama
Aktif Çalışma Sayfasını Koruma
Sütunu Kes Kopyala ve Yapıştır
Excel Dosya Arama Yapma Makrosu
Tek Satırı Kes Kopyala ve Yapıştır
Excel Hücrelerini Çözme
Hücre Aralığını Kes Kopyala ve Yapıştır
Hangi Günde Olduğunu Bulma
Excel Makroları ile Dosya Silme
Sayfaların Seçilmesini Sağlama
Formül Bulunan Hücreleri Koruma ve Kilitleme
Negatif Sayıları Vurgulama
2. Satırdaki Bilgileri Silmek
Özet Tablo Aralığını Otomatik Güncelleştirme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Tüm Boş Çalışma Sayfalarını Silme
Cümle Durumuna Dönüştürme
Başka Dosyada Şifreli Userform Oluşturmak

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...