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

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


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





صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل

بسم الله الرحمن الرحيم اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل بعد ما راجعنا الدرس السابق نبد ..



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

بسم الله الرحمن الرحيم
اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
بعد ما راجعنا الدرس السابق نبدأ من حيث انتهينا
الأساسيات
الشاشة الرئيسية
NDE5NDkxMQ10101
الصفحات الأخرى
NDA1MTA5MQ50502
NDc1MzMzMQ28283
MTE1NzQzMQ224
وأخيرا صفحة  معلومات الدخول والصلاحيات
MzIzMzkx5
ودي أسماء الصفحات داخل الشيتات وبرمجيا
MjUyOTcwMQ666
نقوم بتصميم نفس الصفحات السابقة
أظن سهلة العملية لحد دلوقتي
حان دور الاكواد
نبدأ بالاكواد السهلة
في كل صفحة غير الرئيسية بها زر رجوع نضع الاكواد كالاتي
صفحة ادخال البيانات في زر الرجوع


Sub yasser1()
index.Activate
sheet1.Visible = xlSheetVeryHidden
End Sub

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

Sub yasser2()
index.Activate
sheet2.Visible = xlSheetVeryHidden
End Sub

صفحة قاعدة البيانات

Sub yasser3()
index.Activate
sheet3.Visible = xlSheetVeryHidden
End Sub

صفحة المستخدمون users

Sub mohamed1()
index.Select
users.Visible = xlSheetVeryHidden
End Sub



وقبل ان نترك صفحة اليوزرز

نضع هذه المعادلات

MTM5MTYx7


=IF(J2="";"";VLOOKUP(J2;A2:E8;3;FALSE))

=IF(J2="";"";VLOOKUP(J2;A2:E8;4;FALSE))

=IF(J2="";"";VLOOKUP(J2;A2:E8;5;FALSE))

هذه الدوال تجلب بيانات المستخدم من جدول المستخدمين ومنها نقوم بالتحكم في صلاحياته

الآن حان دور الصفحة الرئيسية
نضع في اول زر وهو زر ادخال البيانات الكود التالي

MjQyODMx8


Sub aseel1()
If users.Range("k2") = "yes" Then
Application.ScreenUpdating = False
sheet1.Visible = xlSheetVisible
sheet1.Select
Else
MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"
Application.ScreenUpdating = True
End If
End Sub


زر الصفحة الثانية صفحة الاستعلام

NDEwMjUxMQ56569

Sub aseel2()
If users.Range("L2") = "yes" Then
Application.ScreenUpdating = False
sheet2.Visible = xlSheetVisible
sheet2.Select
Else
MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"
Application.ScreenUpdating = True
End If
End Sub

زر الصفحة الثالثة صفحة قاعدة البيانات

MTQ2ODY1MQ727210
Sub aseel3()
If users.Range("m2") = "yes" Then
Application.ScreenUpdating = False
sheet3.Visible = xlSheetVisible
sheet3.Select
Else
MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"
Application.ScreenUpdating = True
End If
End Sub
زر الصفحة الرابعة صفحة صلاحيات اليوزرز

NDgzODY3MQ292911
وهنا سنغير الكود  سنعطى لهذه الصفحة كلمة مرور خاصة غير باقي الصفحات


Sub mohamed()
Dim x
    x = InputBox("يرجى ادخال كلمة المرور.", "Password Required")
    If x = "123" Then
users.Visible = xlSheetVisible
users.Select
        Else
        MsgBox "كلمة المرور خطأ يرجى اعداة المحاولة"
    End If
End Sub



  
اكواد الصفحات تعتمد علي
اول سطر يقوم بمقارنة  الخلية الخاصة بالصفحة اذا كانت بها كلمة yes
فيسمح بالدخول اما غير ذلك لا يمكن الدخول
والجزء الثان من الكود يقوم باظهار الصفحة عند تحقق الشرط والذهاب اليها
ينقصنا سطر صغير لاتمام الموضوع
MTAyODMwMQ818112
نسخ اسم المستخدم عند الدخول الى الخلية المحددة ليتم جلب بيانته عن طريق اسمه
وتتم كالاتي
MzA1NDUzMQ121213
يتم وضع الكود في حدث زر الدخول
NDQwODc5MQ242414
 
users.Range("j2") = ComboBox1.Value
وبكدا يكون انتهى الدرس
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب 
تقبلوا تحياتي
ياسر العربي
اعادة نشر

مرفق الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
ومرفق اخر معدل ليسع اكبر قدر من الشيتات
Mzc4NDUyMQ7715
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

تحياتي
 
 
 
  صلاحيات.rar   تحميل rar مرات التحميل :(135)
الحجم :(43.313) KB
  صلاحيات - Copy.rar   تحميل rar مرات التحميل :(127)
الحجم :(55.2) KB

توقيع :Yasser Elaraby
663013020


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

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

توقيع :Yasser Elaraby
663013020


29-08-2017 06:43 مساء
مشاهدة مشاركة منفردة [3]
خالد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 8
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 217
 offline 
look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
جزاكم الله خير الجزاء 

16-09-2017 09:50 صباحا
مشاهدة مشاركة منفردة [4]
احمد سيف
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 229
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 1-1-1988
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 46
 offline 
look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
السلام عليكم 
أولا جزاك الله خيرا 
ثانيا :
ماذا يعني هذا السطر  
on error go to 88
وكذلك 
else
88

16-09-2017 10:47 صباحا
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
عليكم السلام
اولا السطر on error go to 88

عشان لو حدث اي خطأ عند تنفيذ الدالة vlookup للبحث عن الباسوورد الصحيح
يتم الذهاب الى النفطة 88
وهي موجودة تحت else مع رسائل الخطأ في الباسوورد
بمعنى انه اذا كانت الباسوورد خطأ او انه حدث خطأ اثناء تنفيذ الكود يعطى كلمة المرور خطأ
والرقم 88 ما هو الا رقم او علامة لنشير اليها فتستطيع كتابة رقم غيره للتأكد 
142

توقيع :Yasser Elaraby
663013020


04-10-2017 04:31 مساء
مشاهدة مشاركة منفردة [6]
سوزي كارم
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس : أنثى
تاريخ الميلاد : 4-2-1999
الدعوات : 1
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 196
 offline 
look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
جزاك الله خيرا




الكلمات الدلالية
صلاحيات ، للوصول ، لشيتات ، معينه ، داخل ، الاكسيل ،


 










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

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