Macro'da Login Ekranı Oluşturma















Aşağıda, yukarıdaki Login ekranında Giriş düğmesi tıklandığında çalışacak Private prosedür verilmiştir. 
------------------------------------------------------------------------------------------------------------------------

Private Sub btnGiris_Click()

 Const username = "sinan"         'Kullanıcı adı sabit olarak tanımlanmaktadır. 
 Const password = "123456"      'Password de sabit olarak tanımlanmaktadır. 

 If KullaniciAdi.Text = username And Sifre.Text = password Then    'Girilen bilgiler doğruysa 

    frmLogin.Hide         'Login ekranı gizleniyor.
    frmAnaMenu.Show      'Ana menü görüntüleniyor. 

  Else           'Yanlışsa 

    MsgBox "Kullanıcı Adı veya Şifre yanlış."          'Mesaj veriliyor. 
    KullaniciAdi.Text = ""            'Kullanıcı Adı alanı temizleniyor. 
    Sifre.Text = ""         'Şifre alanı temizleniyor. 

 End If

End Sub

Bu blogdaki popüler yayınlar

Power BI'da Yeni Sütun Eklemek

Macro'yla Borç Alacak Girişi ve Mizanı

Kümülatif Toplam

ETarihli Fonksiyonu

Eğer Benzerse

Excel Macro'da Tutar Hesaplamaları

Hesap No Bazında Sayfalar Arası Konsolidasyon

Power BI Kullanımına Giriş