إبراهيم محمد

ما شاء الله عليك يا استاذ عباد دائما نرى عبقريتك فى كل الاكواد زادك الله علما و نورا

الزملاء الافاضل / يرجى الاطلاع على هذا الرابط http://www.officena.net/ib/index.php?showtopic=44906 توجد الاجابات التى تخص البرنامج فيه

بعد اذن استاذنا العظيم حاولت ان افهم الكود بعض الشىء وقمت باضافه ثوابت للاستثاء الصفحات التى ذكرتها فى المشاركه السابقه وهو كالتالى Private Const Sn As String = "total" Private Const Sn1 As String = "MyDate" Private Const Sn2 As String = "ورقة1" Public Sub Ali_Al_Sh() 'كود نسخ البيانات من جميع الصفحات الى الصفحه الاجماليه Dim Sh As Worksheet Dim Cn La = Sheets(Sn).Cells(Rows.Count, 3).End(xlUp).Row Sheets(Sn).Range("B5:H" & IIf(La = 4, 5, La)).ClearContents For Each Sh In ThisWorkbook.Worksheets With Sh Select Case Sh.Name Case Is = Sn Case Is = Sn1 Case Is = Sn2 Case Else Cn = Sheets(Sn).Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row LR = .Cells(Rows.Count, 3).End(xlUp).Row .Range(.Cells(5, 2), Sh.Cells(LR, 8)).Copy Sheets(Sn).Cells(Cn, 2).PasteSpecial xlPasteValues End Select End With Next Application.CutCopyMode = False End Sub حيث قمت بتعريف اسماء الصفحات كثوابت ثم وضعت اسمها مكان الاستثاء الذى وضعته فى الكود طبعا على قد مقدرتي وهى لا شىء بجوار علمكم الغزير بارك الله لك فيه وزادك من فضله

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

السلام عليكم ورحمه الله وبركاته الاستاذ الكبير / ابو نصار المحترم تكمله بسيطه من علمك الغزير باذن الله فى برنامج صلاحيات المستخدمين الذى حضرتك انجزته سوف اضع هذا الكود ليقوم بجمع البيانات من جميع الصفحات طبعا ما عدا الورقه الاولى وورقه mydate فارجوا منك هذا الكود ولك جزيل الشكر والامتنان مع خالص شكرى وتقديرى واحترامي للاستاذ البارع - ابو نصار

الله عليك يا استاذ فعلا هذا الكود لا يخرج الا من استاذ متمكن من عالم الاكسيل انا جربت الكود وهو شغال بصورة ممتازة جدا وما شاء الله عليك ولى استفسار بسيط فى فهم هذة النقاط من الكود بعد اذنك ماذا يعنى الرقم 3 فى هذا الكود هل هو العمود الثالث ماذا يعنى الرقم 3 هنا La = Sheets(Sn).Cells(Rows.Count, 3).End(xlUp).Row Sheets(Sn).Range("B5:H" & IIf(La = 4, 5, La)).ClearContents وماذا تعنى ارقام 4 و 5 وكذلك الاراقام فى باقى اسطر الاكواد برجاء اعطاء نبذة بسيطه عنها لكي يسهل فهم الكود وتعم الفائدة باذن الله وجزاك الله كل خير يا استاذنا العظيم وبارك الله فيك

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

السلام عليكم ورحمه الله وبركاته برجاء المساعدة فى كود يمكن من نسخ جميع البيانات التى بصفحات المستند فى صفحه اجماليه مع مراعاة بعض النقاط التاليه ان يتم مسح جميع البيانات اولا من صفحه البيانات ما عدا رؤوس العناوين ان يتم نسخ البيانات من الصفحات الاخرى بصورة متتاليه اى بيانات كل صفحه اسفل الاخرى مرفق ملف كمثال للعمل عليه مع العلم بانه يمكن ان يكون عدد الصفحات يتجاوز 100 صفحه وعدد الصفوف فى كل صفحه قد يتجاوز 2000 صف والغرض من ذلك هو امكانيه عمل الاحصائيات المطلوبه على جميع البيانات من صفحه واحدة وان الصفحات الاخرى يتم التحديث عليها ومن ثم عند ترحيل البيانات فانه يتم مسح بيانات صفحه الاجمالى اولا ثم نسخ متتالى لجميع الصفحات مرة اخرى بالتتالى مع خالص الشكر والتقدير نسخ بيانات جميع الصفحات.rar

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

واى استفاسر نحن فى الخدمه

واى استفاسر نحن فى الخدمه

عفوا .. بالدخول بالدعم الفني لم يظهر نموذج اضافة مستخدم جديد لتحديد صلاحياته بالضغط على تعديل كلمة السر تظهر رسالة خطأ وتشير للصفحة 1 ------ عند وضع اسم المستخدم - الدعم الفنى وكتابه كلمه السر 111 وقبل الضغط على زر الدخول يكون هناك عدو احتمالات وهى كالتالى ( ملحوظه لا تطغظ زر دخول الان ) ستجد ان زر الخاص بالصلاحيات قد تم تفعيله وهذا يمكنك من تغيير وتعديل الصلاحيات للمستخدمين المسجلين بالبرنامج وستجد زر تغيير كلمه السر وهذا يمكنك من تغيير كلمات السر للمستخدمين فى حال كان لديك الكلمه القديمه وستجد زر اضافه مستخدم جديد وهذا مفعل ولكن يلزم اولا ان تدخل اسم المستخدم الجديد والباسورد الخاصه به ثم الضغط على زر مستخدم جديد فيتم فتح شاشه الصلاحيات وتقوم بتحديد الصلاحيات الخاصه به من خلال اختيار الصلاحيه المناسبه مباشرة من الكومبوبكس او لسرعه العمل يتم اختيار احد الخيارات بالاسفل سواء الكل مشاهدة وتعديل او الكل مشاهدة فقط او مخفى ومن ثم تقوم فقط بالتعديل على صلاحيات الصفحات المطلوبه ثم تضغظ زر الحفظ وبهذة الطريقه يمكنك التحكم فى البرنامج وانت لا زالت فى شاشه الدخول دون الدخول الى البرنامج اما اذا دخلت الى البرنامج باسم مستخدم عادى فسوف تحتفى تلك الازرار من شاشه الدخول وسيكون متاح فقط للمستخدم تغيير كلمه السر الخاصه به من خلال زر بالصفحه الاولى وارجو ان تكون فكرة البرنامج قد اصبحت واضحه مع خالص الشكر و التقدير

الاخ العزيز / yousifsamra اشكرك على مرورك الطيب واتمنى ان يعم النقع على الجميع وكما ذكرت لولا تعاون اساتذة المنتدي لم يكن هذا المشروع ليرى النور وان شاء الله يتطور هذا البرنامج اكثر واكثر بمشاركه الجميع باذن الله

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

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

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

استاذي الفاضل / عباد المحترم السلام عليكم ورحمه الله وبركاته اسعدني مرورك واتمنى المتابعه معنا هنا فلا تحرمنا تواجدك معنا والاستفادة من علمكم الوفير وهذة نسخ من البرنامج باصدارات 2003 و 2007 صلاحيات المستخدم 2003-_.rar صلاحيات المستخدم_- 2007.rar

بسم الله الرحمن الرحيم اقدم لكم اليوم هديه برنامج صلاحيات المستخدمين ويمتاز هذا البرنامج بالتالى : ولكن قبل ان نبين مميزات البرنامج لابد من حفظ الحقوق فلقد بداء هذا البرنامج الاستاذ الفاضل / عبد الله المجرب واتم العمل من استكمال للاكواد وعمل التعديلات المطلوبه وتامينه فهو الاستاذ / عباد ابو نصار وتم الاستعانه بكود من مشاركات الاستاذ / عبد الله باقشير فى التنقل لاى صفحه فى المستند والان وقد اكتمل العمل ولكنه قابل للتطوير من الاستاذة الافاضل طبعا وهذا ما نطمح اليه مميزات البرنامج 1- انه سهل الاستخدام فانه يعمل بمجرد ان ترفق له اى عدد من الصفحات تصل الى 254 صفحه وقابله للزيادة عند تعديل جزء صغير فى الكود 2- اعطاء الصلاحيات عن طريق نموذج سهل الاستخدام وبيسر فهو يعطى ثلاث انواع من الصلاحيات (مشاهدة وتعديل اى صلاحيات كامله - مشاهدة فقط - اى للاطلاع - مخفى اى اخفاء هذة الصفحه عن المستخدم 3- يتم تسجيل اسم المستخدم والتاريخ والوقت لكل حركه دخول 4- صفحه mydate هى الصفحه الهامه فى الملف ففيها يتم تسجيل كل الصلاحيات واسماء المستخدمين وكلمات السر الخاصه بهم 5- مرونه عاليه فى الغاء واضافه الصفحات وتغير اسماءها دون التاثير على البرنامج فمبجرد اغلاق البرنامج والدخول عليه يتم تحديث بياناته تلقائيا 6- غير قابل الاختراق عن طريق رفع الامان فى الماكرو 7- الصفحات الرئيسيه فيه هى صفحه mydate وورقه رقم 1 وما دون ذلك قابل للحذف او التغيير المسمى او الاضافه ويتعامل كما ذكرت سابقا حتى 254 صفحه بعد اذن الاستاذة الافاضل / مصممي البرنامج قمت بوضعه فى هذة المشاركه بهدف ان تعم الفائدة من علمكم الغزير وكذلك اعتبارة برنامج قابل للتطوير وذلك لسهوله فكرته ومرونته فى التغيير حسب متطلبات كل شخص لان المشكله التى كانت تواجه اى مستخدم عادى عندما يجد ملف عن نفس هذا الموضوع هو كيفيه تطويعه الى الطريقه التى يعمل بها اما فى هذا الملف فما عليه سوى نقل الصفحات التى يرغبها من ملفاته وسوف يعمل عليها البرنامج بشكل تلقائى وسهل للدخول على البرنامج بصلاحيات كامله : اسم المستخدم : الدعم الفنى كلمه السر 111 ومن داخل صفحه mydate ستجد باقى الاسماء ومعها كلمات السر الخاصه بها عندما تكتب كلمه السر الخاصه بالدعم الفنى ستجد ازار الصلاحيات وكلمه السر تم تفعيلها ومن ثم تسطيع التجول فى البرنامج ومن داخله ايضا تستطيع تغيير كلمه السر صلاحيات المستخدم_.rar

معادله منع التكرار.rarاسمحو لى بالمشاركه بعد اذن الاستاذة الافاضل فقط للتوضيح الاخ العزيز ستجد معادله منع التكرار فى ملف الاستاذ عبد الله المجرب من خلال الدخول الى data validation كما بالصورة المرفقه ولكى تنفذه عندك ما عليك سوى الوقوف على الخليه الاولى للعمود المراد عمل الشرط عليه ثم الدخول الى data validation تتبع نفس الاجراءات الموضحه فى الصورة

تفضل اخي البرنامج باصدارى 2003 و 2007 صلاحيات المستخدم_-2003.rar صلاحيات المستخدم_-2007.rar اما بالنسبه للاستاذ عبد الله المجرب فارجو منه الاطلاع على ما وصل اليه البرنامج وان يرفقه فى مكتبه المنتدي لتعم الفائدة باذن الله واكرر شكرى وتقديري مرة اخرى لجميع استاذة هذا المنتدي العظيم بمن فيه من استاذة لا يبخلون عن اعطاء المساعدة الجادة لاحد بارك الله لكم فى كل شىء وان شاء الله نلقتى فى المشاركات القادمه باذن الله

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

السلام علكيم ورحمه الله وبركاته الاستاذ عباد المحترم فى الحقيقه واجهتنى مشكله فنيه وهى عند اضافه مستخدم جديد واعطاءه صلاحيات على الصفحات 9 & 10 & 11 فقط واخفاء الباقى وجدت اننى عندما ادخل باى مستخدم اخر حتى مسئول النظام فان باقى الصفحات تختفي على الرغم من الكشف عليه فى نموذج الصلاحيات تجد ان له صلاحيات اخرى ولكن عند فتح الملف لا تظهر الصفحات الاخرى فقد اضفت مستخدم جديد اسمه ماهر وحدثت هذة المشكله كما ارجو استبدال كلمه مسئول النظام بكلمه الدعم الفنى مع اعطاءها الصلاحيات الخاصه بمسئول النظام واعتذر بشدة عن ازعاجك كثيرا ولكن لو تركتنى الان فى منتصف الطريق فلا اعرف كيف سيكتمل وتفضلوا بقبول وافر الاحترام والتقدير برنامج صلاحيات المستخدمين_A-7.rar

الف الف مليون شكر وتحيه لاستاذنا الهمام ( عباد - ابو نصار ) علي هذا الانجاز الرائع فحقا قد بهرتني بسعه علمك ومعرفتك بلغه البرمجه بالاكسيل فزادك الله علما ونفعك به ونفع الامه بك يا رب العالمين وجعلك الله انت ومن معك من استاذه هذا المنتدي الكريم نورا يقتدى به الناس فى دربهم وانا فى انتظار تعديل الملحوظه الاخيرة حتى اقوم بعمل صفحه البدايه له وعرضه عليك واتمنى ان يتم ضمه الى مكتبتكم الموقرة فى المنتدي حتى لا يضع جهدكم فى هذا العمل ويستفيد منه اكبر عدد ممكن وان شاء الله يكون فى ميزان حسناتكم والله لقد احببتك فى الله

ارجو المعذرة فان المرفق موجود فى نهايه الصفحه الاولى حيث وجدت ان المشاركه الاخيرة انتقلت الى صفحه تاليه مع خالص الشكر والتقدير

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