formda Çoklu kullanıcı oluşturma

[Emsdmr]

Arkadaşlar Kullanıcı Kodları ile ilgili bir çalışma yapmak istedim kısmen başarılıda oldum.

Fakat Vba ile ilgili bilgim düşük düzeyde sınırlı olunca kod kalabalığı aldı başını gitti.
Çalışmanın konusu şu :

Birden fazla kullanıcının olduğu ve aynı zamanda yetkili bir kullanıcı tarafından istenilen sayıda kullanıcı oluşturulabilen bir form yaptım. bu formu 26 kullanıcı ile sınırlı yaptım çünkü kullanıcı sayısını arttırmak istediğimde kodlar başını alıp gidiyor.
sadece 26 kullanıcı için 300 satır kod yazdım. acaba zaten böylemi olması gerekiyor yoksa benim kodlarım kuru kalabalıkmı?

Sizden ricam bir göz atmanız.

Kullanıcı Adı :emsdmr
Parola: 123
NOT : kod ve parola büyük,küçük harfe duyarlıdır

 

[halit3]

kodda döngü kulanırsanız çok sayıda kullanıcı eklemiş olursunuz.

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Kullanıcı Adınızı Giriniz"
Exit Sub
End If
If TextBox2.Value = "" Then
A = TextBox1.Value
MsgBox "Sayın " & A & " Parola Girmelisiniz.."
Exit Sub
End If
deg = 0
For i = 1 To Worksheets("Sayfa1").[A65536].End(3).Row
If TextBox1.Value & TextBox2.Value = Worksheets("Sayfa1").Cells(i, "A").Value & Worksheets("Sayfa1").Cells(i, "B").Value Then
deg = 1
End If
next
If deg = 1 Then
A = TextBox1.Value
MsgBox A & " HOŞGELDİN", , "DEMİR"
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
UserForm2.Show
Else
MsgBox "Kullanıcı Adı veya Parolanız Yanlış", , "DEMİR"
Exit Sub
End If
End Sub

 

[halit3]

ekli dosyanıza bir bakınız deneme zamanım olmadı

 

[Emsdmr]

sayın halit3
alakanıza teşekkürler
istediğimi cevabınızla elde etmiş oldum

 

[halit3]

dosyanı yeniden gönderiyorum