أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil مشكلة في الكود اكسيل اسئله واجابات


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





عمل شاشة دخول باسم مستخدم وكلمة مرور

بسم الله الرحمن الرحيم اليوم سنشرح عمل شاشة دخول ولكن باسم مستخدم وكلمة مرور بسم الله نبدأ بالشكل الموضح يوجد المشار لهم ..



29-08-2017 12:35 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

بسم الله الرحمن الرحيم
اليوم سنشرح عمل شاشة دخول ولكن
باسم مستخدم وكلمة مرور
بسم الله نبدأ
بالشكل الموضح يوجد
المشار لهم بالسهم الأخضر  7 label
السهم الأحمر    1 textbox
السهم الأسود     1 combobox
وزر دخول      وزر خروج
وطبعا اتنين image  لشعار الشركة
MTI1NTIzMQ92921
بعد تصميم نفس الشكل السابق
نقوم بعمل شيت جديد اسمه users
MTkxNzAx2
ODgzNDYx3
كما بالصورة
بعد تسمية الشيت وخصوصا برمجيا  مثل التحديد الأحمر
نضيف البيانات كالأتي
MTQyNDkyMQ444
نيجي بقي للاكواد
اولا كما تعلمنا في الدرس السابق نقوم بوضع هذه الاكواد في اليوزرفورم 


في general))
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


في حدث تهيئة الفورم
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
في حدث الاغلاق
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If unloadmode = vbFormControlMenu Then
Cancel = True
MsgBox "غير مسموح"
End If
End Sub


اما في حدث تنشيط الفورم فنقوم باضافة اكواد ربط الليبل الخاصة ببيانات الشركة  بالخلايا التي تحتوي علي البيانات
Private Sub UserForm_Activate()
Application.WindowState = xlMaximized
Application.Visible = False
Label1.Caption = users.[e1]
Label2.Caption = users.[e2]
Label3.Caption = users.[e3]
  With Me
 .Height = Application.Height
 .Width = Application.Width
 .Left = Application.Left
 .Top = Application.Top
 End With
End Sub


وفي زر الخروج
Private Sub CommandButton2_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
تبقي لنا الكود الاهم
وهو زر الادخال
Private Sub CommandButton1_Click()
On Error GoTo 86
If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l0"), 2, 0) = TextBox1.Text Then
Me.Hide
Application.Visible = True
MsgBox ComboBox1.Value & " مرحبا بك/   ", , "elmalak_elhazen_yasser@yahoo.com"
 Else
86
Label7= Label7+ 1
MsgBox " لقد استخدمت  " & Label7 & " محاولة من اصل  5  محاولات" ,vbCritical, "elmalak_elhazen_yasser@yahoo.com"
If Label7= 5 Then
MsgBox "لقد استنفذت جميع المحاولات"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub
استخدمنا هنا دالة vlookup للبحث والمقارنة عن المستخدم وكلمة المرور
ان لم يحقق الشرط يتم التحويل الى عدد المحاولات  ومنها الى اغلاق البرنامج

وطبعا زي كل مره ننسى نحط كود في حدث فتح الملف
Private Sub Workbook_Open()
 Userform1.Show   
End Sub


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

MjEyNTgzMQ775
نحدد الكمبوكس ونكتب اسم الشت والرينج اللي فيه اسم المستخدم كما موضح بالصورة  المظلل بالاحمر 
الى شاشة دخول اخرى باذن الله
مع تحياتي 
ياسر العربي

المرفقات بها شاشة الدخول مع صلاحيات بأكتر من شكل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  صلاحيات.rar   تحميل rar مرات التحميل :(198)
الحجم :(43.313) KB
  صلاحيات - Copy.rar   تحميل rar مرات التحميل :(141)
الحجم :(55.2) KB

توقيع :Yasser Elaraby
663013020


29-08-2017 02:48 مساء
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور

رائع يا عربى
تسلم على الموضوع الجميل ده

توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


29-08-2017 03:25 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
بارك الله فيك وجزاك الله خيراً أخي الغالي ياسر العربي

29-08-2017 03:32 مساء
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
حبايبي الغاليين  
حسام باشا 121 ياسر بيه 

تحياتي لكم
11358113
توقيع :Yasser Elaraby
663013020


07-09-2017 07:58 صباحا
مشاهدة مشاركة منفردة [4]
احمد سيف
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 229
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 1-1-1988
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 46
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
السلام عليكم 
كثير ما أجدك تستخدم هذه الأكواد
(  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
ولكن لا أعرف ما هي الفائدة منها فما هي فائدته ؟ 
بعض الأسطر تظر بالون الأحمر داخل محرر الأكواد دليل على ان بها خطأ فما هو ؟
وجزاكم الله خيرا 

07-09-2017 08:17 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
أخي الكريم أحمد سيف
أهلاً بك في المنتدى
هذه الأسطر عبارة عن أكواد API وهنا يتم استخدامها لتكبير الفورم على سبيل المثال ليملأ الشاشة ويزيل شريط العنوان الخاص بالفورم
وطالما ظهرت باللون الأحمر فمعنى ذلك أنك تستخدم أوفيس 64 بت وليس 32 بت لذا لابد من تحويل هذه الأسطر لتعمل على 64 بت وهذا يحتاج لجهاز منصب عليه 64 بت للتجربة

10-12-2018 12:53 مساء
مشاهدة مشاركة منفردة [6]
fady_dd
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس : ذكر
تاريخ الميلاد : 27-6-1985
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 110
 offline 
look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
بارك الله فيك




الكلمات الدلالية
شاشة ، دخول ، باسم ، مستخدم ، وكلمة ، مرور ،


 










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

الساعة الآن 10:36 صباحا