كود لزر دخول مطلوب التعديل عليه

[حمادة عمر]

السلام عليكم

الكود المرفق طبعاً انتم اعلم به مني ولكن احب ان اقول انه كود لعمل زر دخول في شاشة دخول بناءاً علي

ان يكون اسم المستخدم : hamada وكلمة المرور : 12345 وهما في هذا الكود محددين !!

اريد ان يتم ربط اسم المستخدم وكلمة المرور في الكود بقيمة خلية معينة في شيت الاكسيل فمثلا

يكون اسم المستخدم : هو قيمة الخلية A1 مثلاً ايا كانت القيمة وكذلك ان

يكون كلمة المرور : هو قيمة الخلية B1 مثلاُ ايا كانت القيمة ايضا

جزاكم الله خيرا عنا

Private Sub CommandButton1_Click()

If TextBox1.Value = "hamada" And TextBox2.Value = 12345 Then

Unload Me

Exit Sub

End If

TextBox1.Value = ""

TextBox2.Value = ""

TextBox1.SetFocus

End Sub

[احمد عبد الناصر]

السلام عليكم

جرب هذا

Private Sub CommandButton1_Click()

If TextBox1.Value = sheet1.[a1] And TextBox2.Value = sheet1.[b1]  Then

Unload Me

Exit Sub

End If

TextBox1.Value = ""

TextBox2.Value = ""

TextBox1.SetFocus

End Sub

تحياتي

[حمادة عمر]

الاخ الحبيب / احمد عبد الناصر

الزر لايعمل بالكود المرسل منكم وقد جربته قبل ارسال الموضوع

وشكرا جزيل الشكر لاهتمامك الرائع وردوك السريعة

واهلا بك اخ في الله

جزاك الله خيرا

[رجب جاويش]

السلام عليكم

جرب هذا التعديل البسط على كود الاخ الفاضل / أحمد عبد الناصر

Private Sub CommandButton1_Click()

If TextBox1.Value = Sheet1.[a1].Text And TextBox2.Value = Sheet1.[b1].Text Then

Unload Me

Exit Sub

End If

TextBox1.Value = ""

TextBox2.Value = ""

TextBox1.SetFocus

End Sub

وهذا مرفق للتجربة

زر دخول.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير / رجب جاويش

الف الف مليون شكر وكما ذكرت فان التعديل بسيط ولكن كبيييييير لدي

فهو ما اطلبه تماما

الف شكر للاخ الغالي احمد عبد الناصر ايضا

جزاكم الله خيرا

[رجب جاويش]

أخى الفاضل / حمادة عمر

جزاك الله كل خير

ولا شكر على واجب أخى الفاضل

[احمد عبد الناصر]

الاخ حمادة عمر

تحياتي لك حياك الله

الاستاذ رجب جاويش

للمحترفين لمساتهم تحياتي لك