واجهه جاهزه_شاشة دخول بكلمة سر

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة  

 

تم ارفاق كود الحل من الفاضل ا /  رحمه الله_ الحسامي 

 

و لا تنسونا من صالح الدعاء

تحياتى

واجهة برنامج...hosami (1).rar

[ahmedalyalshahat]

طب بتتعمل ازاى دى 

لو ينفع شرح اوك يبقى تمام 

يعنى عاوزين نتعلم 

اسرق الشعار بتاع الاخ ياسر 

عاشق جديد للاكسل

[ياسر خليل أبو البراء]

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً

روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1

اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save

خلاص اقفل الملف اللي فيه الفورم

روح لملفك اللي عايز تدرج فيه الفورم وافتح

وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية

بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي

If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then

بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

[ahmedalyalshahat]

  في 5‏/9‏/2016 at 15:44, ياسر خليل أبو البراء said:

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً

روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1

اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save

خلاص اقفل الملف اللي فيه الفورم

روح لملفك اللي عايز تدرج فيه الفورم وافتح

وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية

بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي

If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then

بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

Expand  

 

معلم الله عليك يا كبيرنا 

بس انت معودنا على انك بتشرح بالصور 

انت معلم والكل منك يتعلم 

تم تعديل سبتمبر 5, 2016 بواسطه احمد ديدو