برنامج شاشة الدخول مع صلاحيات

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

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

 

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

 

الأول : أن يستفيد منه باقي الأعضاء .

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

المطلوب :

1) : تعديل اكواد الدخول للبرنامج من صفحة الصلاحيات و يسجل عملية الدخول و الخروج في صفحة تقرير الدخول و على ان يظهر اسم المستخدم في الصفحة الرئيسية R4 

2): اضافة كود في الصفحة الرئيسية تغيير كلمة المرور

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

 

دخول.xlsm

تم تعديل سبتمبر 21, 2023 بواسطه husain alhammadi

[كمال على طارق]

مشاركة مكررة ... وجب الحذف!

 

[husain alhammadi]

البرنامج يختلف عن الاول

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة 

اخواني هل يوجد خطا

Private Sub CommandButton3_Click()
 
Dim strUsername As String
Dim strPassword As String
Dim iRow As Integer

strUsername = Me.TextBox1.Value
strPassword = Me.TextBox2.Value
On Error GoTo 1
 iRow = Application.WorksheetFunction.Match(strUsername, Worksheets("صلاحيات").Range("d:d"), 0)
1
If Err.Number <> 0 Then MsgBox "تاكد من اسم المستخدم و كلمة المرور": Exit Sub
If Worksheets("صلاحيات").Cells(iRow, 2).Value = strPassword Then
    MsgBox "تم تسجيل الدخول بنجاح!"
    
    Unload Me
    UserForm1.Show
Else
    MsgBox "تاكد من اسم المستخدم و كلمة المرور"
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox ("أهلا وسهلا بك في برنامج "), vbOKOnly
form1.Hide
Sheet7.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet7.Range("E4").Value = Date
Sheet7.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("M4").Value = Time
form2.Show
End If
End Sub

فى الكود ان كان نعم ارجوا تصحيحها

دخول.xlsm

[mahmoud nasr alhasany]

الملف غير كامل

لايوجد فية Sheet7

form1.Hide
Sheet7.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet7.Range("E4").Value = Date
Sheet7.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("M4").Value = Time
form2.Show
End If

 

تم تعديل سبتمبر 26, 2023 بواسطه mahmoud nasr alhasany

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة 

جزاك الله خير الجزاء على التنبية و الصحيح هو sheet 4

form1.Hide
Sheet4.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet4.Range("E4").Value = Date
Sheet4.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet4.Range("M4").Value = Time
form2.Show
End If
End Sub