اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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


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

 

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

 

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

تحياتى

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

  • Like 3
رابط هذا التعليق
شارك

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

روح لمحرر الأكواد ( 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

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

  • Like 3
رابط هذا التعليق
شارك

1 hour ago, ياسر خليل أبو البراء 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

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

 

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

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

:dance1:انت معلم والكل منك يتعلم :wavetowel:

تم تعديل بواسطه احمد ديدو
  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information