محتاج كود لتلوين اسماء الشيتات

[2saad]

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

محتاج كود لتلوين اسماء الشيتات تلقائيا مهما اضيف شيت

ولكم جزيل الشكر

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم

جرب الكود التالي في حدث المصنف ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim R As Integer, G As Integer, B As Integer
    Randomize
    R = Int(Rnd() * 256)
    G = Int(Rnd() * 256)
    B = Int(Rnd() * 256)
    Sh.Tab.Color = RGB(R, G, B)
End Sub

سيعمل الكود فقط عند إضافة ورقة عمل جديدة

[2saad]

شكرا لرد حضرتك 

وضعت الكود كما قلت حضرتك واضفت ورقة عمل جديدة

ولكن دون جدوي لم يحدث شيئ

[ياسر خليل أبو البراء]

أين وضعت الكود؟ ارفق صورة بالضبط للموديول الذي وضعت به الكود.
الكود يوضع في حدث المصنف
دبل كليك على ThisWorkbook في نافذة المشروع وقم بلصق الكود في هذا الموديول .. وجرب مرة أخرى

[2saad]

اخي الكريم

الملف مرفق ارجو التعديل عليهفنان.xlsm

[محي الدين ابو البشر]

فنان.xlsm

[2saad]

شكرا جزيلا لكم جميعا وجزاكم الله كل خير

[elmansyeswa]

جزاكم الله خيرا على المعلومات الثمينة