أ / محمد صالح

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

أخي الكريم جلال وفقك الله معنى السطر الأول هو تحديد المدى المسمى my_rng بالمدى range("h7:hz") حيث z هي رقم آخر صف في العمود h كما هو موضح في السطر السابق لهذا السطر z = Range("H6").End(xlDown).Row ومعنى السطر الثاني هو الشرط الثاني لتنفيذ التلوين If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then ويعني الشرط ككل إذا كانت قيمة الخلية أقل من الدرجة الصغرى أو كانت قيمة الخلية المجاورة للخلية الحالية بخليتين في نفس الصف باتجاه العمود الأول(الخلية التي تحتوي على درجة امتحان الفصل الثاني) أقل من قيمة الخلية f6 التي بها ربع درجة امتحان الفصل الثاني ينفذ عملية التلوين بنفس لون الخلفية ولون الخط الموجود في خلية الدرجة الصغرى للمجموع وإذا لم ينطبق الشرط يتم تلوين الخلفية بالأبيض ولون الخط بالأسود أتمنى أن يكون اتضح الأمر

إذا عرف السبب بطل العجب اشرح لنا كيف حصلت على هذه الأداة ونخبرك كيف نزيلها

أخي الكريم استعمل هذا الماكرو لعمل المطلوب Sub removetoolbars() Dim username As String, objwsh, fso As Object Set objwsh = CreateObject("WScript.Network") usrname = objwsh.username Set fso = CreateObject("scripting.filesystemobject") On Error Resume Next fso.deletefile "C:\Documents and Settings\" & usrname & "\Application Data\Microsoft\Excel\excel*.xlb" MsgBox "تم حذف جميع شرائط الأدوات الزائدة" End Sub مع ملاحظة أن الكود اعتمد أن قرص النظام هو C وفي حالة كونه قرصا آخر يمكنك تغييره في الكود أتمنى أن يكون هو المطلوب

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

أخي جلال عدّل الكود الموجود في حدث عند التغيير في ورقة العمل إلى 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 ولا يمكنك استعمال شرطين للتحقق من صحة المدخلات وأعتقد أن تلوين الفصول المكررة باللون الأحمر كافي جدا لجذب انتباه المستخدم لتصحيح هذا الخطأ