عبدالله باقشير قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 السلام عليكم جمعة مباركة هذا الكود يوضع في الوحدة النمطية للورقة Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("F3:F12")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub ايضا يوجد رابط تحميل في رابط المدونة ادنى التوقيع حماية خلايا معينة من التعديل.rar 3 رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 استاذنا : خبور لا حرمنا الله منك .. ولا من افكارك رابط هذا التعليق شارك More sharing options...
badico قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 بارك الله فيك ،،،، دائما تتحفنا بما هو مفيد ومثير للاهتمام رابط هذا التعليق شارك More sharing options...
حسن محمدسليم عبدالحميد قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 (معدل) جزاك الله خيرا على هذا الكود الجميل ارجو أن تساعدنى فى موضوع اضافة كود لتسطير الشيت الملف بالمرفقات وشكرا التقسيم لشيتات3.rar تم تعديل مارس 4, 2011 بواسطه حسن محمدسليم عبدالحميد رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 الفاضل العلامة/ خبور أفاض الله عليكم من العلم ماينفع البشرية دعاؤنا من مصر الحرية لأهلنا فى اليمن الشقيق إن الله معكم تحياتى ** جمال دغيدى ** رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 وحشتنا يا أستاذ خبور كنت قلقاً عليك جداً نحمد الله أنك بخير و ندعوا الله أن يحفظ اليمن من كل سوء ليعود مرة أخرى اليمن السعيد إن شاء الله رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 الف شكر استادى الكبير ربنا ما يحرمناش من اعمالك الكبيرة والجميلة جدا رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 السلام عليكم جزاك الله خير أستاذنا وحفظكم الله من كل مكروه رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 السلام عليكم حمداً لله على سلامتك أستاذ الأجيال خبور ونصر الله يمن الإيمان وشعبه المنتفض كود رائع مثل سائر أعمالك أستاذ خبور وأود الاستفسار كيف يكون الكود اذا رغبت في عمل حماية لخلايا متفرقة في الورقة رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 الأخ الفاضل / خالد القدس كود الأستاذ خبور واضح ويشرح نفسه غير فى السطر وأكتب المدى المطلوب If Not Application.Intersect(Target, Range("F3:F12,d3:d12")) Is Nothing Then 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 استاذ خبور مبدع دائماً تسلم ايدك و جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 الاستاذ الفاضل العزيز خبور بارك الله فيك ونفع بعلمك عمل مبدع ومتقن اللهم احفظ بلدي الغالي اليمن السعيد من الفتن والتمزق والمشاكل واحفظ شعبه اللهم امين. 1 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 السلام عليكم أحسنت أستاذ دغيدى الف شكر وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مارس 4, 2011 مشاركة قام بنشر مارس 4, 2011 السلام عليكم حمداً لله على سلامتك أستاذ الأجيال خبور ونصر الله يمن الإيمان وشعبه المنتفض كود رائع مثل سائر أعمالك أستاذ خبور رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر مارس 6, 2011 مشاركة قام بنشر مارس 6, 2011 السلام عليكم ورحمة الله وبركاته اشتقت للمنتدى ولاعمالك الرائعه كود جميل جدا بارك الله فيك اخي الكريم خبور خير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 7, 2011 الكاتب مشاركة قام بنشر مارس 7, 2011 الشكر واصل لجميع المشاركين حفظكم الله ورعاكم وعفوا على التاخير خبور خير رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يونيو 27, 2016 مشاركة قام بنشر يونيو 27, 2016 جزاك الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
الترياق قام بنشر يوليو 4, 2016 مشاركة قام بنشر يوليو 4, 2016 في 04/03/2011 at 01:28, عبدالله باقشير said: السلام عليكم جمعة مباركة هذا الكود يوضع في الوحدة النمطية للورقة Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("F3:F12")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub ايضا يوجد رابط تحميل في رابط المدونة ادنى التوقيع حماية خلايا معينة من التعديل.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 5, 2016 مشاركة قام بنشر يوليو 5, 2016 أخي الكريم الترياق أهلاً بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة التعامل بشكل أفضل مع المنتدى وكل عام وأنت بخير العلامة الكبير عبد الله باقشير بارك الله فيك وجزاك الله كل خير على موضوعاتك المميزة وكنوزك التي نستهل ونتعلم منها على الدوام أسأل الله لك الصحة والعافية وكل عام وأنت بخير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.