نموذج دخول


شرح اكواد نموذج الدخول سواء كانت كلمة السر و اسم المستخدم من الكود او من الشيت


اسم المستخدم و كلمة السر بداخل الكود
If TextBox1.Value = "yasser" And TextBox2.Value = "1234" Then
'Add code to show what you want
Else
MsgBox(" username or password is incorrect ")
End If



اسم المستخدم و كلمة السر من الشيت
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
Dim rng1 As Range
Dim strUserName As String
Dim strPassword As String
strUserName = TextBox1.Value
strPassword = TextBox2.Value
Set rng1 = Sheets("Sheet1").Range("A:A").Find(strUserName, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
If rng1.Offset(0, 1).Value = strPassword Then
'Add Code to show what you want
Else
MsgBox " Wrong PassWord"
End If
Else
MsgBox " Wrong UserName"
End If
End If