EXCEL VBA İLE KULLANICI GİRİŞİ

 

Excel VBA'da bir giriş sayfası oluşturmak ve her Excel dosyasının açılışında bu sayfanın açılmasını sağlamak için aşağıdaki adımları izleyebilirsiniz:

1. Yeni Bir UserForm Oluşturun:

   • Excel VBA penceresini açın (Alt + F11).

   • Ekle menüsünden "UserForm" seçeneğini seçin.

   • Kullanıcı girişi için gerekli 2 metin kutusunu (Textbox) ve giriş düğmesini (CommandButton) ekleyin.

2. UserForm Kodlarını Yazın:

• Form üzerinde çift tıklayarak kod penceresini açın.

• Aşağıdaki örnek kodu kullanarak giriş doğrulaması yapabilirsiniz:

Private Sub CommandButton1_Click()

    Dim username As String

    Dim password As String

    

    username = TextBox1.Text

    password = TextBox2.Text

    

    If username = "yourusername" And password = "yourpassword" Then

        MsgBox "Giriş başarılı!", vbInformation

        Unload Me

    Else

        MsgBox "Kullanıcı adı veya şifre hatalı!", vbExclamation

    End If

End Sub

3.Giriş Sayfasının Excel Açılışında Görünmesini Sağlayın:

• VBA penceresinde ThisWorkbook nesnesini açın.

• Aşağıdaki kodu ekleyerek çalışma kitabı açıldığında UserForm'un görünmesini sağlayın:

Private Sub Workbook_Open()

    UserForm1.Show

End Sub

Çalışma Kitabını Kaydedin:

• Dosya > Farklı Kaydet seçeneği ile çalışma kitabınızı "Excel Makro Etkin Çalışma Kitabı" formatında kaydedin (.xlsm uzantısı).