عبدالله المجرب

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

الف مليووووووون مبروك الترقية المستحقة جدا جدا جدا للقدير الكبير / حمادة عمر

يمكنك ذلك بإستخدام تنسيق الخلايا والحماية العادية

موضوعات طلب برامج كسر الحماية مخالفه ويوجد إشتراطات لكسر الحماية عن ملف وشكراً

استاذي ابو خليل لكن الملف فارغ وليس به جداول

بارك الله فيك اخي حمادة على هذا العمل المميز

ممتاز وارى ان الاول افضل

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

اقتباس من مشاركة للاستاذ منتصر الانسي

وانا بانتظار مثل هذا الحل اي اظهار رسالة غير الرسالة التقليدية الخاصة بالمفتاح الاساسي التي يظهرها الاكسس

اصابة الهدف

شاهد المرفق تم الاستغناء عن تاريخ اليوم في الجدول Database4 (1).rar

الف مبروك ومنها للاعلى

السلام عليكم ورحمة الله وبركاته الاخت الفاضلة /أم عبدالله...........حفظكم الله الف مليووووون مبروك والى الامام دوما........ تقبلوا تحياتي وشكري

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

ضع مرفق للعمل عليه

ضع مرفق للعمل عليه

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

السلام عليكم جرب المرفق في المدى حتى A100 منع كتابة المكرر.rar

السلام عليكم شاهد هذا المرفق هل تقصد هكذا example.rar

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

جزاك الله خير استاذ رجب

بارك الله فيك استاذ سعيد انشغال كبير فاعذروني

السلام عليكم سيكون الكود هكذا Private Sub Workbook_BeforePrint(Cancel As Boolean) Me.ActiveSheet.PageSetup.BlackAndWhite = True End Sub

بارك الله فيك استاذ محمود على هذا الجهد