خطأ في شاشة الدخول مع صلاحيات

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة
اخواني الخبراء ارجوا منكم ارجوكم مساعدتى في تعديل الاكواد برنامج شاشة الدخول مع صلاحيات في صفحة الصلاحيات اسم المستخدم (d6 :d30) و كلمة المرور  (e6 :e30) مع اضافة الصلاحيات من (Z30:g7) و اضافة خاصية اظهار اسم المستخدم فى الصفحة الرئيسية J9  مع كود تقرير دخول المستخدمين بمعنى كل من يدخل البرنامج يسجل فى التقرير 
اسم المستخدم : husain و كلمة المرور :123
واسم المستخدم : 2 و كلمة المرور :2
واسم المستخدم : 3 و كلمة المرور :3
للعلم بان البرنامج حاليا يعمل بصورة ممتازة و لكن يفتح للمستخدمين الثلاثة  فقط
وجزاكم الله خير الجزاء 

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then
Application.Visible = True

 Range("b1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Range("b1").Select
    ActiveCell.Value = UserForm1.TextBox1.Value
    Sheets("Sheet2").Select
     Range("c1").Select
     Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Range("b1").Select
    ActiveCell.Value = UserForm1.TextBox2.Value    
     Range("d1").Select
     Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Range("b1").Select
    ActiveCell.Value = Date   
     Range("e1").Select
   Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Range("b1").Select
    ActiveCell.Value = Time
    
If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then
Application.Visible = True
UserForm1.Hide
Else
MsgBox "يرجى التحقق من ادخال اسم المستخدم وكلمة المرور بصورة صحيحة", , " "
Label5.Caption = Label5.Caption - 1
If Label5.Caption = 0 Then
ThisWorkbook.Save
Application.Quit
End If
End If
End Sub

الدخول.xlsm

[محمد هشام.]

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

قم بمراجعة الموضوع التالي ربما يفيدك

 

تم تعديل أكتوبر 2, 2023 بواسطه محمد هشام.

[husain alhammadi]

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

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

بانتظار

[husain alhammadi]

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

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

و جزاكم الله خير الجزاء و جعله الله صدقة جارية لكم 

[محمد هشام.]

 لم تحصل على النتيجة ربما لعدم قدرتك على تطويع الاكواد بما يناسيك اظافة الى ان الملف المرفق طريقة تصميمه  تزيد من عدم امكانية حصولك على النتائج المدكورة في اول تعليق

وعلى ما يبدو لي انك قمت بتحميل الملف من احد المواقع وتحاول الاشتغال عليه 

اخي من الممكن ادا شرحت لنا مادا تقصد بالصلاحيات  هل هي اظهار او اخفاء اوراق معينة على مستخدم معين مثلا .لربما نستطيع مساعدتك  وتعديل الملف الدي قمت  سابقا بالاشارة اليه

 

 

تم تعديل أكتوبر 4, 2023 بواسطه محمد هشام.

[husain alhammadi]

 

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

استاذ محمد هشام  شكرا لك على المرور الطيب و الاهتمام

اقصد بالصلاحيات هي اظهار او اخفاء اوراق معينة على مستخدم حسب صفحة الصلاحيات

وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك و لكل من ساهم في هذا البرنامج و هذا البرنامج من تصميمي خاص و لم اقل بنقله 

 

[محمد هشام.]

اعتدر اخي @husain alhammadi على التاخير في الرد بسبب ضيق الوقت 

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

 

 

 

 

واي استفسار لا تتردد في دكره سوف نكون سعداء دائما بحصولك على النتيجة المطلوبة 

 

 

 

تحديد صلاحيات المستخدمين.xlsb

تم تعديل أكتوبر 6, 2023 بواسطه محمد هشام.

[husain alhammadi]

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

 

استاذى محمد هشام 

إنه لمن دواعي فخري وامتناني الكبير أن أقول للجميع كم نحن محظوظون لوجودك معنا، حقا لقد ابدعت و تميزت ، فأنت أهل للشكر، ولك منى كلّ الثناء!

وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك