ibn_egypt

اخى الفاضل حلك بقي منع النسخ واللصق تماما والشيتات تبقي للإدخال وفقط، مرفق الملف تحياتي Crew Change.rar

اخى الفاضل حسب ما فهمت من طلبك .. مرفق ملف لربما هو المطلوب تحياتي مثال.rar

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

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

انا بتكلم على الكود الثاني في المشاركة 9 وليس الأول.... منع النسخ والقص واللصق واللصق الخاص داخل الشيت تماما ... مفيد جدا جربه بس زبطها بقي خلى استدعاء الامر كما بالشكل التالى Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub لما الملف يفتح يتم المنع وعند الإغلاق يفك المنع تحياتي

وجهات نظر .. الكود الثانى انا شايفه رائع وهو منع النسخ واللصق داخل الملف بالكامل .. مين عيد

طب اتعبك بقي وضيف الثلاثة للمكتبة ... كود منع اللصق فقط ... كود منع النسخ والقص واللصق داخل الملف ... كود منع اللصق على القائمة المنسدلة تحياتى

اتفضل ياسيدي Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo 1 If Target.Validation.Type > 0 Then Application.CutCopyMode = False End If 1 End Sub اتمنى يكون هو ده المطلوب ... عند العضو 3 طرق الى الآن .. تحياتي Sheet1.rar

اعتقد مش هتفرق قصة اللصق كقيمة Paste As Values لانها لاتحذف ال Validation Rule الموجودة في الخلية بخلاف اللصق العادى هناك حل اخر مرفق الا وهو منع خاصية النسخ والقص واللصق داخل الشيت ليصبح الشيت كما تفضل العضو في طلبه للإدخال فقط دون النسخ والقص واللصق.. ايها يفضله العضو يعمل به تحياتي ValidationList.rar

اخى الفاضل بعد إذن أخى الكريم أ.حسام، جرب الملف المرفق لربما به طلبك تحياتي ValidationList.rar

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

اخى الفاضل الترتيب صحيح عندي كما في الصورة المرفقة جرب انت ان تعدل خاصية Right-to-Left الخاصة بالفورم لتصبح False بدلا من true كما في الصورة التالية تحياتي

أخى الفاضل هل جربت هذا الحل ... من قائمة ملف File خيارات Options خيارات متقدمة Advanced انزل في الاسفل بشريط التمرير ..... قم بإزالة علامة الصح بجانب " تجاهل التطبيقات الأخري التى تستخدم تبادل البيانات الديناميكي DDE Ignore Other Applications That use Dynamic Data Exchange DDE

اخى الفاضل جرب الملف المرفق لربما به طلبك تحياتي مساعدة معادلة بحث جميلة جدا.rar

أخى الفاضل وأستاذي الكريم لست اجيد الشرح فقمت بعمل ملف به بعض الأكواد التى أتمنى منك اضافتها للمكتبة وهي كود تحديد القيم 0 وتلوينها كود تلوين الصفوف الفارغة في نطاق محدد كود منع ال Right-Click او ال Double-Click داخل الشيت كود تلوين الخلية بالأحمر عند الضغط عليها Double-Click كود تلوين القيم الفريدة والقيم المكررة داخل نطاق محدد كود تلوين الخلايا الفارغة في نطاق محدد كود تلوين الخلايا التى بها قيم وتجاهل الفارغة كود تلوين الخلايا التى بها أخطاء كود ازالة التنسيق الشرطي السابق من النطاق كود جعل علامة X (الاغلاق ) بالفورم غير نشطة كود تقسيم الاوراق الى ملفات منفصلة حاجات خفيف خفيف كده، وأول الغيث قطرة، وعذرا للتأخير، مرفق الملف زبط بقي على كيفك وضيف ما تريده للمكتبة تحياتي Codes.rar

لم الاحظ ذلك عندى اطلاقا اخى الجموعي

يعني اذهب الى رقم 1 ... وبعدها على طول ليس هناك اكواد اخري بل End Sub مباشرة .. حتى ينهي الكود ولا يكمل الأسطر المتبقية ... ليس بالضرورة 1 ممكن 2 او اى رقم ... مجرد اشارة لسطر كود يذهب اليه وهناك اعضاء افاضل يكتبون مكانها Exit Sub ... اتمنى ان تكون المعلومة وضحت تحياتي

تم إضافة المرفق استاذي في المشاركة 1 وتم تعديل المشاركة 3 باضافة الملف بعد التعديل تحياتي

اخى الفاضل تفضل الملف بعد التعديل ... لعله المطلوب تحياتي pass.rar

اخى الفاضل أين الملف الذي به الأكواد هذه ... أرفق الملف أفضل تحياتي

اخى الفاضل مرفق ملف آخر حيث ان ال Cell Link تكون مجدية اذا كانت الارقام مرتبة بترتيب الصفوف فهي تحضر رقم الصف الذي به القيمة المختارة وليست القيمة نفسها .. اما اذا غيرت القيم فلن تكون مفيدة تم الاستغناء عنها في هذا الملف واستبدلناها بسطر كود واحد فقط لكتابة قيمة الكمبوبوكس في الخلية D2 .... مرفق الملف بعد التعديل خالص تحياتي combo box and vlookup.rar

اخى الفاضل بدون أكواد أو أي شئ كل ما ينقصك هو اختيار فقط ال Cell Link ... اى الخلية التى يتم فيها كتابة رقم الصف للقيمة المختارة ... حدد الخلية D2 ستعمل الدالة بنجاح Right click >>>> format control >>>>> control tab >>>>> select cell link مرفقق الملف للتوضيح تحياتي combo box and vlookup.rar

أخى الفاضل تحايل على الإكسل ... باخفاء الاوراق بشكل عادي واظهارها عند الطباعة فقط ... واخفائها مرة اخرى عند اغلاق الفورم مرفق الملف للتوضيح تحياتى ايصال الضامن الثالث.rar

اخى الفاضل معادلتك التى استخدمتها والمعادلة التى استخدمتها انا نفس الشئ والاختلاف بسيط ... الدالة year تقوم باستخلاص السنة من التاريخ فتظهر لك 2015 او 2014 ونحن نريد رقمين فقط وليس اربعه فاستخدمت معها الدالة right لإيجاد اول رقمين فقط فكانت بهذا الشكل =RIGHT(YEAR(A1),2) وممكن استخدام الدالة Mid لعمل ذلك ايضا وتكون بهذا الشكل =MID(YEAR(A1),3,2) بهذا حصلنا على السنة 14 او 15 ... كرقمين وليس اربعه انت بمعادلتك ربطت السنة والشهر باستخدام & بينما انا استخدمت الدالة Concatenate وهما يؤديان نفس الغرض ... فالصورة النهاية للمعادلة اما ان تكون هكذا =RIGHT(YEAR(A1),2)&"/"&MONTH(A1) أو هكذا =MID(YEAR(A1),3,2)&"/"&MONTH(A1) أو هكذا =CONCATENATE(RIGHT(YEAR(A1),2),"/",MONTH(A1)) أو هكذا =CONCATENATE(MID(YEAR(A1),3,2),"/",MONTH(A1)) والجميع يؤدي نفس الغرض تقبل تحياتى

أخى الفاضل اكتب اى تاريخ في الخلية A1 وفي الخلية B1 الصق المعادلة التالية =CONCATENATE(RIGHT(YEAR(A1),2),"/",MONTH(A1)) تحياتي