أ / محمد صالح

أخي جلال عدّل الكود الموجود في حدث عند التغيير في ورقة العمل إلى Private Sub Worksheet_Change(ByVal Target As Range) Dim My_Rng As Range, cell As Range, z As Integer z = Range("H6").End(xlDown).Row Set My_Rng = Range(Cells(7, "H"), Cells(z, "H")) For Each cell In My_Rng If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then cell.Font.ColorIndex = Range("Min").Font.ColorIndex cell.Interior.ColorIndex = Range("Min").Interior.ColorIndex Else cell.Font.ColorIndex = 1 cell.Interior.ColorIndex = 0 End If Next cell End Sub وستجد ما يسرك

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

وإياك أخي الكريم عمر أطال الله عمرك في الخير

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

بعد إذن أخي ابو اسامة وأخي إكسيلجي بعيدا عن معرفة رقم اللون ومشكلاته قمت بتعديل بسيط هو أن يلون المستخدم خلية الدرجة الصغرى بلون الخط الذي يريده ولون الخلفية الذي يريده والكود يطبق الاثنين على الخلايا التي ينطبق عليها الشرط مرفق الملف بعد التعديل mas-تلوين الخلايا.rar

وعليكم السلام ورحمة الله وبركاته حياك الله أخي سالم ورزقنا وإياك العلم النافع

وإياك أخي يحيى وبانتظار رأيك بعد التجربة وبانتظار اي مقترحات للتطوير من كل المهتمين بالموضوع

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

كنت أفكر فيها فسبقتني لها أخي الكريم المايسترو فهنيئا لك اللهم تقبل منه وعافه واعف عنه وأسكنه فسيح جناتك يا رب العالمين

رائع أخي قطان الحل صحيح 100000000% وفقك الله لكل ما يحب ويرضى

أنا مؤمن بأن: المستحيل كلمة ليس لها وجود إلا في عقول الكسالى وشباب الإكسل والحسابات ليسوا كذلك

هل تعلم أنك يمكنك جعل ملف الوورد ينطق محتوياته بالإنجليزية؟؟ افتح الملف المرفق ووافق على تمكين الكود وستجد ما يسرك للأمانة الكود منقول مع بعض التصرف mas-word.rar

أعتقد أنه تم حل موضوع مشابه هنــــا

ياريت مزيد من التوضيح

أخي الكريم أحمد كلمة مرور قاعدة البيانات check هي : اجعل لغة الكتابة عربي ثم اضغط على حروف كلمة check ستجد أنها ؤاثؤن وتقبل تحياتي أخوك محمد صالح وأقترح على الإخوة المشرفين نقل الموضوع إلى منتدى الأكسس

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

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

أشكر لك مرورك الكريم أخي قطان نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

يمكنك استعمال هذا الكود Private Sub Workbook_Open() MsgBox "اكتب هنا نص الرسالة الذي تريده" End Sub

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

تفضل أخي الكريم يتم تنفيذ الكود في تمام التاسعة صباحا يمكنك تغيير وقت جهازك إلى 8:59 ص ثم افتح الملف وانتظر دقيقة الكود قائم على اختبار الوقت الحالي للجهاز هل هو 9:00 فإذا كان كذلك يتم تنفيذ الكود وإذا لم يكن كذلك يعيد الكرة كل دقيقة وأي استفسار لا تتردد أخوك محمد صالح في خدمتك Mas-ontime.rar

أخي الكريم ليس هذا النوع من القوائم هو الذي ينبغي استخدامه وإنما يمكنك استخدام التحقق من الصحة لعمل قائمة الفصول واستخدام التنسيق الشرطي لتلوين التكرار وهذا ما تم تعديله في مرفقك في العمود الأول فقط يمكنك تكراره في باقي الأعمدة mas-table.rar

لايوجد مرفق أين المرفق ؟؟

الحمد لله على عودة هذا الصرح التعليمي الكبير كنت قد وضعت برنامج لحساب نتائج مباريات كأس العالم للشباب والتي أقيمت في مصر 2009 واليوم قمت بتطوير الفكرة لجعلها مناسبة لأي بطولة تتكون من 24 فريق المطلوب من المستخدم: كتابة أسماء فرق المجموعات في مكانها الصحيح في جانب اللغات وكتابة نتائج المباريات والبرنامج يقوم بحساب الاحصائيات والترتيب ومن سيقابل من في الأدوار القادمة حتى نصل للبطل لا ينقصني سوى دعاؤكم لي بالتوفيق والسداد Mas24TeamsCup.rar

مشكور أخي yamz شاهدت أمثله مثل هذا لكأس العالم وكأس أوربا جزاك الله خيرا