يوسف عطا

الأخ الغالى عبدالله المجرب تحياتى القلبية لك راجياً من الله أن تكون فى خير وسعادة وكل أفراد اسرتك الملف المرفق هو المشروع الذى كنت أعمل عليه مستخدماً الملف الرائع الذى أبدعته ورفعته لنا فى هذا الموضوع الرجاء لو وقتك يسمح أريد بعض الشغلات فى هذا الملف كالتالى 1. تظبيط الصلاحيات ليتم تعديلها وتغييرها من صفحة ماى ديت بإستخدام الأرقام وليس الكلمات كالتالى الرقم 1 لصلاحية الدخول للشيت وتعديله الرقم 2 لصلاحية مشاهدة الشيت دون أن يكون له حق التعديل الرقم 3 لكى يكون الشيت مخفياً للمستخدم 2. إضافة كود الحفظ التلقائى عند الخروج من الملف دون ظهور ويندو الحفظ أعتذر لو أزعجتك يا عزيزى ولك تحياتى المستخدم يوسف الباس 111 مرفق مع الملف صورة للباسووردات الأخرى الملف حجمه 2.6 ميجا ولم يقبل الموقع رفعه هنا مرفق رابط مباشر من هنا http://www.mediafire.com/?6bakrlbdojer758

هلا وغلا وعلا وسما عاشت الأسامى عن نفسى دايماً بسجل فى أى منتدى بإسمى الحقيقى بالعربية لو كان يدعم الأسماء العربية وبالإنجليزية لو لم يكن يدعم العربية لأن معظم المنتديات لا تتيح للأعضاء تغيير اسماء الظهور وتحياتى لك يا الغالى وتشرفنا بيك

الله الموفق

حدد الخلايا التى تحتوى على المعادلات بالماوس مع كنترول ثم إفتح تنسيق خلايا حماية علم فى مربعين التشيك بوكس ثم موافق ثم إفتح قايمة أدوات حماية حماية ورقة يمكنك وضع باسوورد لو أردت أو ترك مكان الباس فاضى ثم موافق وبكدة تبقى خليت المعادلات مخفية وعند محاولة الكتابة في خلايا المعادلات تخرج رسالة تخبرك أن الخلايا محمية أرجو أكون وفقت فى الشرح

الله ينور عليك أدت الفكرة الغرض مع ملاحظة أن مدى حذف البيانات ليس من B2 بل من B 35 شاكر لك الأفضال أخى الغالى

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

الله ينور عليك ابو حنين كود أخى أبو حنين يعمل جيداً ويحقق المطلوب تماماً إنسخه وضعه فى حدث الشيت وغير المدى ليكون كما يلى Private Sub Worksheet_Selectionchange(ByVal Target As Range) For G = 2 To 1000 If G Mod 2 = 1 Then Rows(G).Interior.ColorIndex = 37 Else Rows(G).Interior.ColorIndex = 0 End If Next End Sub ولو أردت أن يكون كل صف بلون مختلف بالتبادل صف فردى بلون وصف زوجى بلون آخر غير الرقم صفر فى السطر 6 برقم آخر 8 مثلاً طريقة وضع الكود فى حدث الشيت المطلوب إفتح ملف الإيكسيل وإكبس على ألأت + F11 سيظهر لك صفحة كتابة الأكواد إختر الصفحة التى تريد تطبيق الكود فيها عن طريق دبل كليك ثم إلصق الكود فى المساحة البيضاء الكبيرة

الكود الذى أرفقته لك يقوم بالمطلوب حتى بعد حذف صفوف ولكنه يحتاج تعديل ليقوم الكود بتلوين الصفوف الفردية بلون والزوجية بلون آخر فى مدى الـ 1000 صف من الصف 1 إلى الصف 1000 جارى محاولة تعديله

مشكور أبو نصار على تعبك ولكن ظهرت لى رسالة إرور وتم تلوين السطر التالى بلون أصفر داخل الكود ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats

الله ينور عليك يا أيو نصار

يمكن إختيار تلوين الصفوف الفردية بلون والصفوف الزوجية بلون آخر جرب الكود التالى لتلوين صفوف محددة مسبقاً فى الكود Sub تلوين_صف_وصف() 'من هنا تحديد الصفوف ذات اللون الأول Range("1:1,3:3,5:5,7:7,9:9").Select With Selection.Interior 'الرقم 6 هو رمز اللون الأصفر .ColorIndex = 6 .Pattern = xlSolid End With 'من هنا تحديد الصفوف ذات اللون الثانى Range("2:2,4:4,6:6,8:8,10:10").Select With Selection.Interior 'الرقم 8 هو رمز اللون الأخضر .ColorIndex = 8 .Pattern = xlSolid End With Range("A12").Select End Sub

الأسطر التالية جزء من كود ترحيل تقوم بقص البيانات من مدى محدد ولصقها بدءاً من خلية معينة المطلوب أن يتم تعديل سطر اللصق ليكون لصق خاص القيم والتنسيقات مع الحفاظ على بقية الكود كما هو Sheets(X).Select Range("B35:D60").Cut Range("I5").Select ActiveSheet.Paste Range("A1").Select

ممكن يا سالم بك تعرفنا طريقة فك الحماية عن الأوراق ؟

كلامكم كله سليم ولكنى للوهلة الأولى إعتقدت أنه يريد أن ينتقل من ملف لأخر وليس من شيت لأخر ومن باب العلم بالشئ هل يمكن تطبيق نفس الإجراء للإنتقال بين ملفين ؟؟

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

للرفع رفع الله قدركم

ياريت يا محمود بك تحاول إنت كمان لو عندك برنامج كامل

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

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

لو يمكن تدلنى على الخطوات ونا أحاول أو تدلنى على البرنامج ونا أجيبه من النت ماشى الحال

للأسف محتاجه اليوم ضرورى لأنى لازم أنفذ فيه بعض التعديلات اليوم لتسليمها غذاً بالمدرسة وللأسف المدرس اللى عمل الباسوورد تليفونه مقفول من أول اليوم لو تقدر تتعب من أجلى فى هذا الموضوع أكون لك من الشاكرين

الرجاء فك باسوورد الملف المرفق للأهمية قوائم للطبع.rar

معادلاتك أكثر من ممتازة أخى محمود بك وتدل على عبقرية وعلم ومقدرة على تطويع المعادلات لتحقيق الأهداف أتمنى لك التوفيق

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

الله ينور عليك يا أستاذ طارق