ياسر العربى

السلام عليكم الف سلامة ليك ياغالي شكلك في وعكة صحية دا غير الوعكات الاساسية

انا عارف انكم مكسلين تفضل التطبيق صلاحيات.rar

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

بسم الله الرحمن الرحيم اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل ولكن اولا نقوم بمراجعه درس اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد http://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ بعد ما راجعنا الدرس السابق نبدأ من حيث انتهينا الأساسيات الشاشة الرئيسية الصفحات الأخرى وأخيرا صفحة معلومات الدخول والصلاحيات ودي أسماء الصفحات داخل الشيتات وبرمجيا نقوم بتصميم نفس الصفحات السابقة أظن سهلة العملية لحد دلوقتي حان دور الاكواد نبدأ بالاكواد السهلة في كل صفحة غير الرئيسية بها زر رجوع نضع الاكواد كالاتي صفحة ادخال البيانات في زر الرجوع 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 وقبل ان نترك صفحة اليوزرز نضع هذه المعادلات =IF(J2="";"";VLOOKUP(J2;A2:E8;3;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;4;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;5;FALSE)) هذه الدوال تجلب بيانات المستخدم من جدول المستخدمين ومنها نقوم بالتحكم في صلاحياته الآن حان دور الصفحة الرئيسية نضع في اول زر وهو زر ادخال البيانات الكود التالي 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 زر الصفحة الثانية صفحة الاستعلام 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 زر الصفحة الثالثة صفحة قاعدة البيانات 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 زر الصفحة الرابعة صفحة صلاحيات اليوزرز وهنا سنغير الكود سنعطى لهذه الصفحة كلمة مرور خاصة غير باقي الصفحات Sub mohamed() Dim x x = InputBox("يرجى ادخال كلمة المرور.", "Password Required") If x = "123" Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ يرجى اعداة المحاولة" End If End Sub اكواد الصفحات تعتمد علي اول سطر يقوم بمقارنة الخلية الخاصة بالصفحة اذا كانت بها كلمة yes فيسمح بالدخول اما غير ذلك لا يمكن الدخول والجزء الثان من الكود يقوم باظهار الصفحة عند تحقق الشرط والذهاب اليها ينقصنا سطر صغير لاتمام الموضوع نسخ اسم المستخدم عند الدخول الى الخلية المحددة ليتم جلب بيانته عن طريق اسمه وتتم كالاتي يتم وضع الكود في حدث زر الدخول users.Range("j2") = ComboBox1.Value وبكدا يكون انتهى الدرس تقبلوا تحياتي ياسر العربي لو مكسلين تطبقوا احط ليكم مرفق وخلاص وادي مرفق الشرح PDF صلاحيات.rar

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

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

تفضل اخي الغالي لعله المطلوب formtry.rar

تفضل حبيبي طلبك يكرم اصلك حبيبي ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 55.rar

اخي الغالي انا كل كلامي من باب الهزار ليس الا احسن تكون بتزعل ولا حاجه من الشخط وجاري عمل الازم يارب يبطل طلبات بقي

اتفضل ياريس مش ورايا غيرك بقي يارب يكون المطلوب ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 55.rar

مشكور اخي الغالي ياسر علي مجهودك واعادة شرحك للموضوع ولاثراء الموضوع تفضل هذا مثال كنت قد وضعته منذ فترة في المنتدى لعله ينفع احدكم http://www.officena.net/ib/topic/64199-تصفح-الانترنت-من-داخل-برنامجك-على-الاكسيل/ ولكم كل الشكر والتقدير

Quran.rar

نرجو وضع الموضوع في القسم المناسب مع ارفاق مثال بالمشكلة

يلا ادي فكراية كدا علي الماشي لوحة مفاتيح سهلة جدا تعمدت اني اعملها سهلة ومعقدهاش بالاكواد عشان الموضوع يبقي موضوع السهل الممتنع ادي كود لوحة المفاتيح Range("K1") = Range("K1") & Selection شفت عبيط ازاي ABc.rar

كل الشكر والتقدير لاهتمامك

النفس تبكي علي الدنيا و قد عـلـمـت ***** ان الـسـعادة فـيهـا تـرك مــا فـيـهـا لا دار للمـرء بعـد الموت يـســكـنه ***** الا التي كان قبـل الـمـوت بـا نـيـهـا فان بـنـاها بــخــيـر طــاب مســــكــنـه ***** و ان بـنـاهـا بـشـــر خـاب بـانـيـهـا امـوالـنـا لـذوي المـيـــراث نـجــمـعــه ***** و دورنـا لـخـراب الـدهــر نـبـنـيـهـا ايـن المــلـوك التـي كانـت مســلطــنـة ***** حتـي سـقاها بكأس المـوت سـاقيهـا فـكــم مدائــن فـي الآفـاق قـد بـنـيـــت ***** امســت خرابا و أفني الموت اهليهـا لا تـركـنــن الــي الدنـيـا و مـا فـيــهــا ***** فالمـوت لا شــك يفـنـيـنـا يـفـنـيـهـا لـكـل نـفــس و ان كانـت عــلـي وجــل ***** مـــن الـمـنـيــة آمــــال تـقــويـــهـا الـمـرء يبســطها و الدهــر يـقـبـضـهـا ***** و النفس تنشرها و الموت يطويها انــمـا الـمــكـــارم اخــلاق مــطــهـــرة ***** الـديــن اولـهــا و الـعـقــل ثـانـيـهـا والـعــلـم ثــالـثـهـا والحـــلـم رابـعـهــا ***** و الجود خامسها و الفضل سادسها والـبـر ســـابـعـهـا والشـــكـر ثـامـنهـا ***** و الصــبر تاســعها و اللـين باقـيهـا الـنـفــس تـعــلـم أنــي لا أصــــادقـهـا ***** و لســت أرشـد الا حيـن أعـصـيـهـا وأعــمـل لـدار غـدا رضــوان خـازنهـا ***** و الـجـارأحـمـد والرحـمـن ناشـيـهـا قــصــورها ذهـب والمســك طـيـنـثـهـا ***** و الـزعـفـران حشـيـش نـابـت فـيهـا أنـهـارهـا لبـن مـحـض و مـن عســــل ***** و الخـمـر يـجري رحيقا في مجاريها والطـير تجـري علي الأغصـان عاكفـة ***** تـســبـح الله جـهــرا فــي مـغــانـيـهـا من يشتري الدار في الفردوس يعمرها ***** بـركـعـة فــي ظـلام الــليـل يـحيــيـهـا

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

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

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

وهذا ملف بمعظم الاختصارات معظم اختصارات الاكسيل.rar

يأخي جرب قبل ما تتكلم هذا الملف بدون تغيير الكود نهائيا وقبل تجربة كود استاذنا الغالي ابو نصار ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 4444.rar

المفاتيح الوظيفية المفتاح الوصف F1 عرض جزء المهام تعليمات Microsoft Office Excel . يستخدم CTRL+F1 لعرض الشريط أو إخفائه، وهو مكوّن في واجهة مستخدم Microsoft Office Fluent. ينشىء ALT+F1 مخطط للبيانات الموجودة في النطاق الحالي. يدرج ALT+SHIFT+F1 ورقة عمل جديدة. F2 تحرير الخلية النشطة ووضع نقطة الإدراج في نهاية محتويات الخلية. ونقل نقطة الإدراج إلى "شريط الصيغة" في حالة إيقاف تشغيل التحرير في إحدى الخلايا. يضيف SHIFT+F2 تعليق إلى خلية أو يحرره. يعرض CTRL+F2 إطار المعاينة قبل الطباعة. F3 عرض مربع الحوار اسم اللصق. يعرض SHIFT+F3 مربع الحوار إدراج دالة. F4 تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. عند تحديد مرجع خلية أو نطاق في صيغة، يؤدي الضغط على F4 إلى التنقل عبر المجموعات المختلفة من المراجع المطلقة والنسبية. يغلق CTRL+F4 إطار المصنف المحدد. F5 عرض مربع الحوار الانتقال إلى. يستعيد CTRL+F5 حجم إطار المصنف المحدد. F6 يستخدم للتبديل بين ورقة العمل والشريط وجزء المهام وعناصر تحكم التكبير والتصغير. ففي ورقة العمل التي تم تقسيمها (القائمة عرض، الأمر إدارة هذا الإطار وتجميد الأجزاء وتقسيم الإطار)، يتضمن F6 الأجزاء المقسمة عند التبديل بين الأجزاء وناحية الشريط. يستخدم SHIFT+F6 للتبديل بين ورقة العمل وعناصر تحكم التكبير والتصغير وجزء المهام والشريط. يستخدم CTRL+F6 للتبديل إلى إطار المصنف التالي عند فتح أكثر من إطار مصنف. F7 عرض مربع الحوار تدقيق إملائي لإجراء تدقيق إملائي في ورقة العمل النشطة أو النطاق المحدد. ينفذ CTRL+F7 الأمر نقل ضمن إطار المصنف عندما يكون غير مكبر. يمكن استخدام مفاتيح الأسهم لنقل الإطار وعند الانتهاء، اضغط ENTER أو ESC لإلغاء الأمر. F8 تشغيل وضع التوسيع أو إيقاف تشغيله. في وضع التوسيع، يظهر تحديد موسع في سطر المعلومات وتوسع مفاتيح الأسهم التحديد. تمكنك SHIFT+F8 من إضافة خلية أو نطاق غير متجاور إلى تحديد من الخلايا باستخدام مفاتيح الأسهم. ينفذ CTRL+F8 الأمر حجم (الموجود في القائمة تحكم الخاصة بإطار المصنف) عندما يكون أي مصنف غير مكبر. تعرض ALT+F8 مربع الحوار ماكرو لإنشاء ماكرو أو تشغيله أو تحريره أو حذفه. F9 حساب كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة. تحسب SHIFT+F9 ورقة العمل النشطة. تحسب CTRL+ALT+F9 كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة، بغض النظر عما إذا كان تم تغييرها منذ آخر عملية حساب. يعيد CTRL+ALT+SHIFT+F9 فحص الصيغ المعتمدة ثم يحسب كافة الخلايا الموجودة في كافة المصنفات المفتوحة، بما في ذلك الخلايا التي لم يتم تحديدها لحاجتها للحساب. يستخدم CTRL+F9 لتصغير إطار المصنف إلى رمز. F10 تشغيل تلميحات المفاتيح أو إيقاف تشغيلها. يعرض SHIFT+F10 القائمة المختصرة للعنصر المحدد. يعرض ALT+SHIFT+F10 القائمة أو الرسالة للعلامة الذكية. إذا كان هناك أكثر من علامة ذكية، يستخدم للتبديل إلى العلامة الذكية التالية ويعرض القائمة أو الرسالة. يكبر CTRL+F10 إطار المصنف المحدد أو يقوم باستعادته. F11 إنشاء مخطط للبيانات الموجودة في النطاق الحالي. يدرج SHIFT+F11 ورقة عمل جديدة. يفتح ALT+F11 محرر Microsoft Visual Basic الذي يمكن إنشاء ماكرو به باستخدام Visual Basic for Applications (VBA) . F12 عرض مربع الحوار حفظ باسم.

موضوع جميل وفكرة اجمل تفضل بعض الاختصارات مفاتيح الاختصار التي تستخدم المفتاح CTRL المفتاح الوصف CTRL+PGUP للتبديل بين علامات تبويب ورقة العمل، من اليمين إلى اليسار. CTRL+PGDN للتبديل بين علامات تبويب ورقة العمل، من اليسار إلى اليمين. CTRL+SHIFT+( إظهار أية صفوف مخفية داخل التحديد. CTRL+SHIFT+) إظهار أية أعمدة مخفية داخل التحديد. CTRL+SHIFT+& تطبيق حدود خارجية للخلايا المحددة. CTRL+SHIFT_ إزالة الحدود الخارجية من الخلايا المحددة. CTRL+SHIFT+~ تطبيق تنسيق الأرقام "عام". CTRL+SHIFT+$ تطبيق التنسيق "عملة" بمنزلين عشريتين (تظهر الأرقام السالبة في أقواس). CTRL+SHIFT+% تطبيق التنسيق "نسبة مئوية" دون منازل عشرية. CTRL+SHIFT+^ تطبيق تنسيق رقم "أسي" بمنزلين عشريين. CTRL+SHIFT+# تطبيق التنسيق "تاريخ" باليوم والشهر والسنة. CTRL+SHIFT+@ تطبيق التنسيق "وقت" بالساعة والدقيقة و"ص" أو"م". CTRL+SHIFT+! تطبيق التنسيق "رقم" بمنزلين عشريين وفواصل آلاف وعلامة الناقص (-) للقيم السالبة. CTRL+SHIFT+* تحديد المنطقة الحالية الموجودة حول الخلية النشطة (تحاط منطقة البيانات بصفوف وأعمدة فارغة). في PivotTable، يحدد تقرير PivotTable بأكمله. CTRL+SHIFT+: إدخال الوقت الحالي. CTRL+SHIFT+" نسخ القيمة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+SHIFT+Plus (+) عرض مربع الحوار إدراج لإدراج خلايا فارغة. CTRL+Minus (-) عرض مربع الحوار حذف لحذف الخلايا المحددة. CTRL+; إدخال التاريخ الحالي. CTRL+` التبديل بين عرض قيم الخلايا وعرض الصيغ في ورقة العمل. CTRL+' نسخ صيغة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+1 عرض مربع الحوار تنسيق خلايا. CTRL+2 تطبيق تنسيق غامق أو إزالته. CTRL+3 تطبيق تنسيق مائل أو إزالته. CTRL+4 تطبيق تسطير أو إزالته. CTRL+5 تطبيق تنسيق يتوسطه خط أو إزالته. CTRL+6 التبديل بين إخفاء الكائنات وعرض الكائنات وعرض العناصر النائبة للكائنات. CTRL+8 عرض رموز التخطيط التفصيلي أو إخفاؤها. CTRL+9 إخفاء الصفوف المحددة. CTRL+0 إخفاء الأعمدة المحددة. CTRL+A تحديد ورقة العمل بأكملها. إذا احتوت ورقة العمل على بيانات، تحدد CTRL+A المنطقة الحالية. ويؤدي ضغط CTRL+A للمرة الثانية إلى تحديد المنطقة الحالية وصفوف التلخيص. أما ضغط CTRL+A للمرة الثالثة يؤدي إلى تحديد ورقة العمل بأكملها. يتم عرض مربع الحوار وسيطات الدالة، عندما تكون نقطة الإدراج إلى يمين اسم الدالة في صيغة. يؤدي ضغط CTRL+SHIFT+A إلى إدراج أسماء الوسيطات والأقواس، عندما تكون نقطة الأدراج إلى يمين اسم الدالة في صيغة. CTRL+B تطبيق تنسيق غامق أو إزالته. CTRL+C نسخ الخلايا المحددة. يؤدي الضغط على CTRL+C متبوعاً بـ CTRL+C إلى إظهار الحافظة. CTRL+D استخدام الأمر تعبئة لأسفل لنسخ محتويات وتنسيق أعلى خلية في نطاق محدد إلى الخلايا الموجودة بأسفل. CTRL+F عرض مربع الحوار بحث واستبدال، مع تحديد علامة التبويب بحث. تعرض SHIFT+F5 أيضاً علامة التبويب هذه، بينما تكرر SHIFT+F4 إجراء بحث الأخير. يفتح CTRL+SHIFT+F مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+G عرض مربع الحوار الانتقال إلى. تعرض F5 أيضاً مربع الحوار هذا. CTRL+H عرض مربع الحوار بحث واستبدال مع تحديد علامة التبويب استبدال. CTRL+I تطبيق تنسيق مائل أو إزالته. CTRL+K عرض مربع الحوار إدراج ارتباط تشعبي للارتباطات التشعبية الجديدة أو مربع حوار تحرير ارتباط تشعبيللارتباطات التشعبية المحددة الموجودة. CTRL+N إنشاء مصنف فارغ جديد. CTRL+O عرض مربع الحوار فتح لفتح ملف أو العثور عليه. يحدد CTRL+SHIFT+O كافة الخلايا التي تحتوي على تعليق. CTRL+P عرض مربع الحوار طباعة. يفتح CTRL+SHIFT+P مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+R استخدام الأمر تعبئة لليمين لنسخ محتويات وتنسيق الخلية الموجودة أقصى اليسار في النطاق المحدد في الخلايا ناحية اليمين. CTRL+S حفظ الملف النشط باسم الملف الحالي وموقعه وتنسيقه. CTRL+T عرض مربع الحوار إنشاء جدول. CTRL+U تطبيق تسطير أو إزالته. يستخدم CTRL+SHIFT+U للتبديل بين توسيع شريط الصيغة أو طيه. CTRL+V إدراج محتويات "الحافظة" في نقطة الإدراج واستبدال أي تحديد. يتوفر فقط بعد قص كائن أو نص أو محتويات خلايا أو نسخها. تقوم CTRL+ALT+V بعرض مربع الحوار لصق خاص. ويكون متاحًا بعد قص أو نسخ كائن أو نص أو محتويات خلية على ورقة العمل أو في برنامج آخر. CTRL+W إغلاق إطار المصنف المحدد. CTRL+X قص الخلايا المحددة. CTRL+Y تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. CTRL+Z استخدام الأمر تراجع لعكس الأمر الأخير أو لحذف الإدخال الأخير الذي كتبته. يستخدم CTRL+SHIFT+Z الأمر تراجع أو إعادة لعكس التصحيح التلقائي الأخير أو استعادته عند عرض "العلامات الذكية للتصحيح التلقائي".

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