Kullanıcı adı - şifre kombinasyonun bulunduğu userform

[ugur111]

Merhaba Arkadaşlar ;

Ekteki kitapta bulunan userform ile kullanıcı adı-şifre girip enter dediğim zaman şifre doğru ise userformun aşağı bölümde bulunan 9 adet commandbutton un gözükmesini istediğim bir kod çalışması mümkün müdür?İyi çalışmalar

 

[Ayhan Ercan]

Merhaba
Örnek dosyanızdaki İlgili commandbuttonların propertiesten visible özelliklerini false yapıp Enter butonuna aşağıdaki kodu yazarak deneyiniz..

For i = 2 To 4
    If TextBox1 = Cells(i, 1) And TextBox2 = Cells(i, 2) Then
        For j = 1 To 9
            Controls("Commandbutton" & j).Visible = True
        Next
        Exit Sub
    Else
        MsgBox "Kullanıcı adı veya şifre hatalı..!!", , "HATA"
    Exit Sub
    End If
Next

 

[ugur111]

Elinize sağlık üstad .