logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





29-08-2017 12:06 مساءً
بسم الله الرحمن الرحيم

وجدت كثيرا من الاعضاء تطلب هذا الموضوع فقمت بعمل هذا الشرح
اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد
ونقوم بوضع عدد
واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه
اثنين تكست بوكس
الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول
الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله GAME OVER
بمعني انه استنفذ كل المحاولات وجاري اغلاق البرنامج
وواحد كومند زرار يعني عشان ندوس عليه للدخول
زي ما احنا شايفين
MzM2NDI1MQ98981
وطبعا متنسوش تحطه خلفيه حلوة كدا للفورم دا اهم حاجه عندي اه كله الا الجماليات
وموضوع الجماليات دا نعمله موضوع قريب ان شاء الله بس تكون عندكو لسعه فوتوشوب بس
وطبعا نخلي الخلفية علي وضع الاسترتش اه يعني الصورة تبقي لازقه في الفورم كيبر تكبر معاه يصغر تصغر معاه تمام كلنا عارفين الاسترتش كويس
زي ما احنا شايفين
Mzg0MjE0MQ112
نيجي بقي للاكواد
اول كود نحطه في الجينرال بقي اول حاجه
CODE
​
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_SYSMENU = &H80000


والكود التاني في حدث تهيئة اليوزر فورم
CODE
​
Private Sub UserForm_Initialize()
    Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindow(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
   Call DrawMenuBar(lFrmHdl)
End Sub




toolwindowودول لزوم الفشخرة والمنظره وعشان نقصقص البتاعه دي
MTY0MzkzMQ993
هي الخيارات بتاعتها متاحه في الفيجوال بيسك عادي
زي كدا
MTMxMjU2MQ83834
ننفض للحته دي
نخش علي
الكود اثالث
ودا هيبقي في تنشيط اليوزر فورم
CODE
​
Private Sub UserForm_Activate()
Application.WindowState = xlMaximized
  With Me
 .Height = Application.Height
 .Width = Application.Width
 .Left = Application.Left
 .Top = Application.Top
 End With
End Sub




ايه الكلام دا
دا ياسيدي بنقوله كبر لنا البرنامج ملئ الشاشة
Maximized
لما تفتح اليوزر فورم زي الشاطر خلي مقاسات اليوزر فورم زي مقاسات البرنامج
واحنا مكبرين شاشة البرنامج يبقي كدا اليوزر فورم هيبقى كبير زي البرنامج تمام كدا
الكود الرابع
CODE
​
Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then
Me.Hide
Else
am = am + 1
MsgBox " لقد استخدمت   " & am & "   محاولة من اصل 5  محاولات, vbCritical, "elmalak_elhazen_yasser@yahoo.com"
If am = 5 Then
MsgBox "لقد استنفذت جميع المحاولات"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub


اكيد دماغكو لفت معايا معلش انا شرحي علي قده استحملوني
دا كود
بيقول اذا كانت التكست بوكس واحد بتساوي 123
اذن ياعم اخفيني من وشك ويظهر معاك ملف الاكسيل عادي
طيب اذا ما حصلشي بقي نعمل ايه
تعالا بقي am
دي اسم التكست بوكس اتنين بس انا غيرته الى am
ندوس علي التكست بوكس اتنين ونغيره من هنا
MzI3OTExMQ22225
ومننساش نخفى التكست بوكس دا من هنا

NDYxNzc3MQ89896
واحد فكيك بقي يقول ليه am
اقوله ياناصح دول اول حرف من اسيل واول حرف من محمد ولادي تمام يامعلم
محدش يشتم ولا يضرب default_dance1
المهم بقي ان am
بتساوي نفسها + 1 تمام
اه قبل ما انسى نخلي قيمة am دي
بصفر نكتب جواها صفر عشان لما يعد يعد من بعد الصفر
يعني كل ما المعلم يدوس غلط يزود رقم واحد وتطلع رسالة تقوله وصلت لكام محاولة
ولما يوصل للمحاولة الخامسة يقوله بالسلامة ياحبي
انا هقفل وانام
وتمام كدا زي الفل والكلام خدنا والدرس خلص
شفتوا انتو مش مصحصحين ازاي
نسينا نحط كود فتح الفورم في حدث فتح الملف
[p]
</pre>

[p]
CODE

Private Sub Workbook_Open() 
UserForm1.Show
 End Sub
</pre>



وبعدين انا مش هحط امثلة
زي واحد صاحبي وحبيبي بيقول انكم لازم تتعبوا شوية وتعملوها بنفسكوا بدل ما تخدو كوبي وبست وخلاص
للحديث بقية باذن الله لاستكمال اضافات تانيه
اتمنى من الله ان ينفعكم هذا الشرح
تقبلو تحياتي
ياسر العربي
قلت اضيف صورة الكود لكم عشان ميبقاش ليكو حجه
MTIyMTgyMQ32327
شروحات من زمن فات
تم اعادة النشر للفائدة
تحياتي
 
 




توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  29-08-2017 12:13 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 246
الجنس :
تاريخ الميلاد : 1-1-1985
الدعوات : 2
قوة السمعة : 641
الاعجاب : 10
ربنا يجزيك خيرا ويبارك فيك استاذ ياسر العربي



توقيع :الاستاذ محمدي عبدالسميع
جزاكم الله خيرا

look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  29-08-2017 04:07 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
جزاكم الله خيراً أخي الغالي ياسر العربي

رجاء لا تنسى ارفاق ملف ليتسنى للكسالى أمثالنا الاحتفاظ بهذه الكنوز
تقبل تحياتي




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  29-08-2017 04:25 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاك الله خير اخي الكريم ناصر على مرورك العطر

حبيبي ابوالبراء ان شاء الله نرفق ملف يوضح الفكرة للكسالى 12163

تحياتي



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  29-08-2017 05:17 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
بارك الله فيك استاذنا ياسر العربي



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  02-09-2017 02:59 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-09-2017
رقم العضوية : 321
المشاركات : 40
الجنس :
قوة السمعة : 31
الاعجاب : 0
ربنا يجزيك خيرا ويبارك فيك استاذ ياسر العربي




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  19-01-2018 11:06 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 04-12-2017
رقم العضوية : 2105
المشاركات : 14
الجنس :
تاريخ الميلاد : 19-5-1980
قوة السمعة : 60
الاعجاب : 0
جزاك الله خيراً و أدامك للكسالى أمثالنا ...
أستاذنا الكبير




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  21-01-2018 08:18 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزيتم خيرا اخواني الكرام
تحياتي لكم
142



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  16-10-2018 02:55 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-01-2018
رقم العضوية : 3958
المشاركات : 17
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 36
الاعجاب : 0
شكرا على الشرح الجميل




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  16-10-2018 05:36 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2018
رقم العضوية : 8194
المشاركات : 1
الجنس :
تاريخ الميلاد : 6-12-1978
قوة السمعة : 12
الاعجاب : 0
ربنا يجزيك خيرا ويبارك فيك




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  16-10-2018 10:55 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-10-2018
رقم العضوية : 8387
المشاركات : 35
الجنس :
تاريخ الميلاد : 26-6-1973
قوة السمعة : 56
الاعجاب : 0
شرح جميل جزاك الله خير وبارك فيك استاذ ياسر العربي




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  25-12-2018 04:29 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 133
الجنس :
تاريخ الميلاد : 11-5-1992
الدعوات : 2
قوة السمعة : 571
الاعجاب : 2
يااخى واستاذى ياسر ماشاءالله طريقة شرح تعلم المكسل واللى يعرف اوميعرفش يعنى طريقة تعلم بالعافية ربنا يحفظكم اساتذتنا الكرام




look/images/icons/i1.gif اعمل شاشة دخول برنامجك بنفسك
  26-12-2018 12:54 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاكم الله خيرا اخواني الكرام
تحياتي لكم
142



توقيع :Yasser Elaraby
663013020

اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج شاشة الدخول مع صلاحيات حسين الحمادي
5 344 حسين الحمادي
عمل شاشة دخول باسم مستخدم وكلمة مرور Yasser Elaraby
29 7232 حسين الحمادي
شرح كيفية عمل شاشة دخول للاكسل بصورة جمالية مجدى يونس
2 1286 مجدى يونس
ضبط كود شاشة دخول بعدة مستخدمين مهند محسن
7 2158 YasserKhalil
طلب عمل شاشة دخول بكلمة المرور اباالياس
5 1663 اباالياس

الكلمات الدلالية
اعمل ، شاشة ، دخول ، برنامجك ، بنفسك ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 02:34 PM