logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





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

CODE

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

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

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

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

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

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

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

CODE

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
CODE

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
[p]
CODE
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
</pre>
زر الصفحة الرابعة صفحة صلاحيات اليوزرز

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

CODE

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
[p]
</pre>

[p]
CODE
users.Range("j2") = ComboBox1.Value

</pre>
وبكدا يكون انتهى الدرس
لتحميل مثال اضغط هنا
تقبلوا تحياتي
ياسر العربي
اعادة نشر

مرفق الملف
attachصلاحيات.rar
ومرفق اخر معدل ليسع اكبر قدر من الشيتات
Mzc4NDUyMQ7715
attachصلاحيات - Copy.rar

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




توقيع :Yasser Elaraby
663013020

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




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



توقيع :Yasser Elaraby
663013020

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




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




look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  16-09-2017 10:47 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
عليكم السلام
اولا السطر on error go to 88

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



توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  04-10-2017 08:34 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 541
المشاركات : 25
الجنس :
تاريخ الميلاد : 1-1-1982
قوة السمعة : 79
الاعجاب : 0
رائع موفق اخي




look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  06-11-2017 11:25 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby عليكم السلام

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

بعد وضع الكود
CODE
        sh58.Visible = xlSheetHidden
        sh59.Visible = xlSheetHidden
        sh60.Visible = xlSheetHidden
        sh61.Visible = xlSheetHidden
        sh62.Visible = xlSheetHidden


وعند غلق الملف واعادة تسميته حتى يطلب صلحيات المكرو ثانيتا قابلتنى مشكلة
بالملف الذى قمت بالشرح عليه عند الذهاب على خيارات option ومن advansed حاولت فتح خيارات شيت تابس
وجد انى عند البحث عن الملفات بالمرفق الذى وضعت للشرح لا تظهر الشيات
ولكن عندى ظهرت اسماء الشيات واستطيع ان افتحهم واتصفحهم من غير اعطاء صلاحيات المكرو
هل لتك المشكلة من خطأ منى او امر وجب ان انفذة

​وشكرا لحضرتك


تم تحرير المشاركة بواسطة :محمود ابو الدهب بتاريخ:06-11-2017 11:25 مساءً




توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  06-11-2017 11:40 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
اشكرك استاذ ياسر باعادة التدقيق وصلت لخطأي انى من المفرض ان اكتب veryhidden بدلا من hidden



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  07-11-2017 08:54 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: elskary2010 اشكرك استاذ ياسر باعادة التدقيق وصلت لخطأي انى من المفرض ان اكتب veryhidden بدلا من hidden
من الجيد الوصول الى الحلول وحل الاخطاء بالاعتماد على النفس
الحمد لله ان حلت المشكلة
تقبل تحياتي



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  07-11-2017 09:23 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 558
المشاركات : 22
الدولة : الجزائر
الجنس :
تاريخ الميلاد : 25-1-1982
قوة السمعة : 32
الاعجاب : 0
السلام عليكم
بارك الله فيك




look/images/icons/i1.gif صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل
  08-11-2017 11:44 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس :
تاريخ الميلاد : 9-7-1981
الدعوات : 4
قوة السمعة : 1792
الاعجاب : 1
جزاك الله خيرا استاذ ياسر
شرح جميل ومبسط
...




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





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









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

الساعة الآن 11:25 AM