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