نجوم المشاركات

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

ﺗﻐﻄﻴﺔ ﺍﻟﺮﺃﺱ ﺃﺛﻨﺎﺀ ﺍﻟﻨﻮﻡ ﺗﺪﻣﺮ ﺍﻟﺪﻣﺎﻍ.. !!! === =============== ﺇﻥ ﺗﻐﻄﻴﺔ ﺍﻟﺮﺃﺱ ﺃﺛﻨﺎﺀ ﻟﻨﻮﻡ ﺑﺎﻟﻜﺎﻣﻞ ﻋﺎﺩﺓ ﺳﻴﺌﺔ ﻭﺧﻄﻴﺮﺓ ﻣﻤﺎ ﻳﺰﻳﺪ ﻣﻦ ﺗﺮﻛﻴﺰ ﺛﺎﻧﻲ ﺃﻛﺴﻴﺪ ﺍﻟﻜﺮﺑﻮﻥ ﻭﻗﻠﺔ ﻧﺴﺒﺔ ﺍﻷﻛﺴﺠﻴﻦ ﻓﻲ ﺍﻟﺤﻴﺰ ﺍﻟﻤﺘﺎﺡ ﻟﻠﺘﻨﻔﺲ ﻭﺳﻴﻜﻮﻥ ﻫﺬﺍ ﻣﺜﻞ ﺍﻟﺘﺪﺧﻴﻦ ﺇﻟﻰ ﻛﺎﺭﺛﺔ ﺗﺼﻴﺐ ﺧﻼﻳﺎ ﺍﻟﻤﺦ ﻭﻗﺪ ﺗﺴﺒﺐ ﻣﺎ ﻳﻌﺮﻑ ﺑﺎﻻﻧﺘﺤﺎﺭ ﺍﻟﺬﺍﺗﻲ ﻟﺨﻼﻳﺎ ﺍﻟﻤﺦ ﻭﺿﻤﻮﺭﻫﺎ ﻭﻭﻗﻒ ﻧﻤﻮﻫﺎ ﻭﺑﺎﻟﺘﺎﻟﻲ ﻓﻘﺪﺍﻥ ﺍﻟﻤﺦ ﺍﻟﻘﺪﺭﺓ ﻋﻠﻰ ﺍﻟﻘﻴﺎﻡ ﺑﻮﻇﺎﺋﻔﻪ ﺑﻔﺎﻋﻠﻴﺔ ﻭﻛﻔﺎﺀﺓ.

لا توجد شجرة لم يهزها ريح! ولا يوجد إنسان لم يهزه فشل، لكن توجد اشجار صلبة، ويوجد أشخاص اقوياء..فكن منهم! ليست مأساة الحياة هي عدم تحقق اهدافنا , بل المأساة هي لا وجود هدف لتحقيقه يقول الالباني : الطريق الى اللہ طويل و لكن ليس المهم بأن تصل الى اخره المهم هو ان تموت و انت على هذا الطريق لا خير في قراءة لا تدبر فيها، ولا خير في علم لا ورع فيه، ولا خير في مال لا سخاوة فيه، ولا خير في أُخُوَّة لا حفظ فيها، ولا خير في نعمة لا بقاء فيها.! لصامتون ، بداخلهم بحرٌ من كلام هم فيه تائهون منشغلون كيف منه ينجون .. ولهذا كثيرًا هم لا يتكلمون . - اطياف الماضي . لا يوجد اختلاف بين أن تكون لديك فكرة عظيمة لا تطبقها ، و بين ألا تكون لديك أي فكرة على الإطلاق .. وجد شخصان فقط يستطيعون ان يقولوا لك الحقيقه ، عدو فقد اعصابه و صديق يحبك بعمق .. ﻣﻦ ﻳﺘﻜﻠﻢ ﻣﻌﻚ ﻋﻦ ﺣﻴﺎﺗﻪ ﺍﻟﺨﺎﺻﻪ ﻭ ﻳﺸﺎﺭﻛﻚ ﻛﻞ ﺷﺊ .. " ﺍﻋﻠﻢ " ﺍﻧﻪ ﻭﺻﻞ ﺣﺪ ﺍﻟﺜﻘﺔ ﻓﻼ ﺗﺨﺴﺮﻩ . . ﺍﺳﻮﺃ ﺍﻟﻨﺎﺱ ﻭ ﺍﻭﻗﺤﻬﻢ ﻫﻮ ﺍلذﻱ ﺗﻨﻬﻤﺮ ﺍﺳﺮﺍﺭﻙ ﻣﻦ ﻟﺴﺎﻧﻪ ﻋﻨﺪ ﻣﺮﻭﺭ " ﺍﺯﻣﺔ " ﻓﻲ ﻋﻼﻗﺘﻚ ﻣﻌﻪ . . ﻓﻘﻂ !! ﺍﻟﺤﺪﻳﺚ ﻣﻊ ﻣﻦ ﺗﺤﺐ ﺭﺍﺣﺔ ﻧﻔﺴﻴﺔ ﻓﻲ ﺣﺪ ﺫﺍﺗﻬﺎ . . ﻻ ﺗﻮﺟﺪ ﻃﺎﻭﻟﻪ ﺑﻜﺮﺳﻲ ﻭﺍﺣﺪ ﻓﻲ ﻣﻄﻌﻢ ﺍﻭ ﻛﺎﻓﺘﺮﻳﺎ ﻷﻥ ﺍﻟﺤﻴﺎﺓ ﻻ ﺗﻌﺎﺵ ﺑﺪﻭﻥ ﺷﺮﺍﻛﺔ . . ﺍﺳﻮﺃ ﺍﺣﺴﺎﺱ ﺍﻥ ﻳﻤﺘﺪﺣﻚ ﺍﻟﺠﻤﻴﻊ ﺑﻴﻨﻤﺎ ﺗﺴﻘﻂ ﺍﻧﺖ ﻓﻲ ﻧﻈﺮ ﻧﻔﺴﻚ !! . . ﺍﻟﻤﻔﺰﻉ ﺍﻥ ﺗﻜﺘﺸﻒ ﺍﻧﻚ ﻧﺴﺨﻪ ﻃﺒﻖ ﺍﻷﺻﻞ ﻣﻤﻦ ﺗﻜﺮﻩ . . ﻗﺎﻟﻮا ﻟﻲ ﺑﺴﺨﺮﻳﺔ : ﺫﻭﻗﻚ ﻻ ﻳﻌﺠﺒﻨﺎ !! ﻓﻘﻠﺖ ﻟﻬﻢ : ﺫﻭﻗﻲ ﻓﻘﻂ ﻫﻮ ﺍﻟﺬﻱ ﺍﺧﺘﺎﺭﻛﻢ . . ﺩﺍﺋﻤﺎ ﻛﻦ ﻣﺤﺎﻃﺎ ﺑﺎﻻﻣﻞ ﺣﺘﻰ ﺗﺴﺘﻤﺮ ﺣﻴﺎﺗﻚ ﺑﻘﻮﺓ ﻭ ﺛﺒﺎﺕ . . -ﺣﻴﻨﻤﺎ ﻳﺘﻈﺎﻫﺮ ﺍﻟﺸﺨﺺ ﺍﻟﺬﻱ ﺗﺤﺐ ﺑﺎﻟﺒﺮﻭﺩ ﻭ ﻋﺪﻡ ﺍﻷﻫﺘﻤﺎﻡ ﻭ ﻳﺒﺪﺃ ﺍﻷﻟﻔﺎﻅ ﺍﻟﺘﻲ ﺗﺆﻟﻤﻚ !! " ﺗﺄﻛﺪ " ﺍﻧﻪ ﻋﺸﻘﻚ ﺣﺪ ﺍﻷﻟﻢ . . -ﻻ ﺗﺠﺒﺮ ﺍﺣﺪﺍ ﻋﻠﻰ ﺍﻷﻫﺘﻤﺎﻡ ﺑﻚ ﻭ ﺍﻟﺴﺆﺍﻝ ﻋﻨﻚ !! ﻓﻤﻦ ﺍﺣﺒﻚ ﺣﻘﺎ ﺳﻴﻔﻘﺪﻙ ﻛﻤﺎ ﻟﻮ ﻛﺎﻥ ﻓﻘﺪ ﺷﻴﺌﺎ ﺛﻤﻴﻨﺎ ﻭ ﻳﺒﺤﺚ ﻋﻨﻚ . . -ﻟﻴﺲ ﻛﻞ ﻣﻦ ﻧﻄﻠﻖ ﻋﻠﻴﻪ ﻟﻔﻆ رجل ﻓﻬﻮ ﺭﺟﻞ , ﻓﻠﻔﻆ ﺍﻟﻄﻴﺮ ﻳﻄﻠﻖ ﻋﻠﻰ ﺍﻟﺼﻘﺮ ﻭ ﺍﻟﺤﻤﺎﻣﻪ ﺍﻳﻀﺎ . . -ﺍﻟﻤﺮﺃﺓ ﻛﺎﻟﺸﻌﻠﻪ ﺁﺫﺍ ﺍﺣﺴﻨﺖ ﺍﻟﺘﺼﺮﻑ ﻣﻌﻬﺎ ﺍﺿﺎﺀﺕ ﻟﻚ ﺣﻴﺎﺗﻚ , ﻭ ﺁﺫﺍ ﺍسأت ﺍﻟﺘﺼﺮﻑ ﻣﻌﻬﺎ ﺣﺮﻗﺘﻚ . . -ﺍﻟﻤﺮﺃﺓ ﺍﻟﺘﻲ ﺗﻘﻮﻝ ﺍﻥ ﻛﻞ ﺍﻟﺮﺟﺎﻝ ﺧﻮﻧﺔ , ﻻ ﻳﻌﻨﻲ ﺍﻧﻬﺎ ﺟﺮﺑﺖ ﻭ ﻋﺎﺷﺖ ﻣﻊ ﻛﻞ ﺍﻟﺮﺟﺎﻝ , ﺑﻞ ﺍﻟﺮﺟﻞ ﺍﻟﺬﻱ ﺧﺎﻧﻬﺎ ﻳﻌﻨﻲ ﻟﻬﺎ ﻛﻞ ﺍﻟﺮﺟﺎﻝ . . ﻭ ﺍﺧﻴﺮﺍ .. ﺍﻟﺪﻧﻴﺎ ﻋﺒﺎﺭﺓ ﻋﻦ ﻗﻮﺳﻴﻦ ( ) ﺍﻻﻭﻝ ﻫﻮ ﺍﻟﻮﻻﺩﻩ , ﻭ ﺍﻟﺜﺎﻧﻲ ﻫﻮ ﺍﻟﻤﻮﺕ ﻓﺄﺻﻨﻊ ﺑﻴﻨﻬﻤﺎ ﺷﻴﺌﺎ ﻣﻔﻴﺪ ...

بارك الله فيكم جميعا وجزاكم خير الجزاء

بارك الله فيكم جميعا وجزاكم خير الجزاء

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

السلام عليكم ورحمة الله وبركاته ليس هناك شي لتعتذر منه من الاساس وانا اردت فقط توجيهك الى الطريق الصحيح واذا كنت تعلمت الحلقات التكرارية فهذا شي كبير فأغلب الاعمال تتم بها اما عن كودك اعلاه ساعطيك فيه 5 درجات لانه ينفذ ما تريده وساخصم 5 درجات للاسباب التالية: 1- لم تستخدم الحدث المناسب 2- لم تقيد عمل الكود على نطاق معين فهو يعمل على جميع خلايا الورقة 3- استخدام الحلقة التكرارية بدون داعي النتيجة 5 من 10 تحياتي

الاخ الفاضل أبو البراء السلام عليكم اللهم بلغنا رمضان وبارك لنا فيه رائع وعمل ممتاز وجزاك الله خيرااا طول عمرك مبدع وعقبال يارب شيت الازهر

السلام عليكم ورحمة الله بارك الله بالفاضلة ام عبدالله وشكرا على اكمال الموضوع جزاك الله خيرا

ابقاء الضغط على المفتاح Alt ثم النقرعلى المفتاح F9 والسلام عليكم ورحمة الله وبركاته

تفضل أخي الملف مشروط بالرقم القومي بدلا من القيد المتقدمين3.rar

أخي العزيز بناءا علي ماذكرته في المشاركة #4 مرفق فكرة أخري تناسب أكثر باستخدام دالة الـ VLOOKUP إستخدم المعادلة =VLOOKUP(G2,$T$2:$U$7,2) أو انظر المرفق حسم يوم الجمعة4.rar

أختنا الفاضلة / أم عبد الله جزاكي الله خيرا علي ثناؤك وكلماتك الطيبة بل أعتقد أن حلك الأقرب لما يريد أخونا / EBHOO جعل الله ذلك في ميزان حسناتك

الأستاذ /EBHOO السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. حسم يوم الجمعة3.rar

الأستاذ /EBHOO السلام عليكم ورحمة الله وبركاته حل أستاذنا الكبير المهندس/ طارق أفضل بكثير واقرب للواقع جزاه الله خيراً وجعله الله في ميزان حسناته. وعموماً إليك الملف به المطلوب . حسم يوم الجمعة2.rar

كعادة أوفيسنا تعددت الحلول والغرض واحد

السلام عليكم ارجو أن يكون المرفق هو ماتريد حسم يوم الجمعة2.rar

الأستاذ /EBHOO السلام عليكم ورحمة الله وبركاته إليك الملف على حسب ما فهمت. حسم يوم الجمعة1.rar

السلام عليكم ورحمة الله وبركاته استاذنا الكبير // عبد الله شكرا جزيلا لك وللعلم ما كان هذا قصدي معناها لكن قصدي فائدتها الاستاذ الفاضل الحبيب // ابراهيم أبو ليلة شكرا جزيلا لك لقد استفدت من كلمتك ( الجمل التكرارية ) وتعلمت ما فائدتها والحمد لله تم التنفيذ عملي على ما اردته وحاولت ان اصل الى الكود بابسط الطرق واسرعها فكان الناتج هذا الكود اتمنى التقييم Private Sub Worksheet_SelectionChange(ByVal Target As Range) For m = 1 To 100 If Cells(m, 1) = 9 Then Cells(m, 1).Font.Color = -16776961 If Cells(m, 1) <> 9 Then Cells(m, 1).Font.Color = fff Next m End Sub الحلقات التكرارية - تلوين الخلية بشرطbraa.rar

السلام عليكم أخي العزيز أرجو أن يكون المرفق هو ماتريد المتقدمين2.rar

السلام عليكم : اعتذر عن التاخير نظراً لضيق الوقت ان شاء الله تجد بالمرفقات طلبك وزيادة تنوية: الفورم المستخدم هو للاستاذ : عبدالله باقشير test - 2.rar