عبدالله باقشير قام بنشر مارس 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
ابو القبطان قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 استاذنا : خبور لا حرمنا الله منك .. ولا من افكارك
badico قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 بارك الله فيك ،،،، دائما تتحفنا بما هو مفيد ومثير للاهتمام
حسن محمدسليم عبدالحميد قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 (معدل) جزاك الله خيرا على هذا الكود الجميل ارجو أن تساعدنى فى موضوع اضافة كود لتسطير الشيت الملف بالمرفقات وشكرا التقسيم لشيتات3.rar تم تعديل مارس 4, 2011 بواسطه حسن محمدسليم عبدالحميد
دغيدى قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 الفاضل العلامة/ خبور أفاض الله عليكم من العلم ماينفع البشرية دعاؤنا من مصر الحرية لأهلنا فى اليمن الشقيق إن الله معكم تحياتى ** جمال دغيدى **
naderwatfa قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 وحشتنا يا أستاذ خبور كنت قلقاً عليك جداً نحمد الله أنك بخير و ندعوا الله أن يحفظ اليمن من كل سوء ليعود مرة أخرى اليمن السعيد إن شاء الله
ابو الآء قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 الف شكر استادى الكبير ربنا ما يحرمناش من اعمالك الكبيرة والجميلة جدا
zine pef قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 السلام عليكم جزاك الله خير أستاذنا وحفظكم الله من كل مكروه
خالد القدس قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 السلام عليكم حمداً لله على سلامتك أستاذ الأجيال خبور ونصر الله يمن الإيمان وشعبه المنتفض كود رائع مثل سائر أعمالك أستاذ خبور وأود الاستفسار كيف يكون الكود اذا رغبت في عمل حماية لخلايا متفرقة في الورقة
دغيدى قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 الأخ الفاضل / خالد القدس كود الأستاذ خبور واضح ويشرح نفسه غير فى السطر وأكتب المدى المطلوب If Not Application.Intersect(Target, Range("F3:F12,d3:d12")) Is Nothing Then 1
خالد الشاعر قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 استاذ خبور مبدع دائماً تسلم ايدك و جزاك الله خيراً
عبدالله المجرب قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 الاستاذ الفاضل العزيز خبور بارك الله فيك ونفع بعلمك عمل مبدع ومتقن اللهم احفظ بلدي الغالي اليمن السعيد من الفتن والتمزق والمشاكل واحفظ شعبه اللهم امين. 1
خالد القدس قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 السلام عليكم أحسنت أستاذ دغيدى الف شكر وجزاك الله خيرا
قصي قام بنشر مارس 4, 2011 قام بنشر مارس 4, 2011 السلام عليكم حمداً لله على سلامتك أستاذ الأجيال خبور ونصر الله يمن الإيمان وشعبه المنتفض كود رائع مثل سائر أعمالك أستاذ خبور
احمد حمور-ابوعبدالله قام بنشر مارس 6, 2011 قام بنشر مارس 6, 2011 السلام عليكم ورحمة الله وبركاته اشتقت للمنتدى ولاعمالك الرائعه كود جميل جدا بارك الله فيك اخي الكريم خبور خير
عبدالله باقشير قام بنشر مارس 7, 2011 الكاتب قام بنشر مارس 7, 2011 الشكر واصل لجميع المشاركين حفظكم الله ورعاكم وعفوا على التاخير خبور خير
الترياق قام بنشر يوليو 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
ياسر خليل أبو البراء قام بنشر يوليو 5, 2016 قام بنشر يوليو 5, 2016 أخي الكريم الترياق أهلاً بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة التعامل بشكل أفضل مع المنتدى وكل عام وأنت بخير العلامة الكبير عبد الله باقشير بارك الله فيك وجزاك الله كل خير على موضوعاتك المميزة وكنوزك التي نستهل ونتعلم منها على الدوام أسأل الله لك الصحة والعافية وكل عام وأنت بخير 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.