عاشق الاكسيل قام بنشر أغسطس 30, 2017 مشاركة قام بنشر أغسطس 30, 2017 السلام عليكم ورحمة الله وبركاته عايز كود يقوم بحماية اى خلية بها معادلة من التعديل واخفاء المعادلة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 30, 2017 مشاركة قام بنشر أغسطس 30, 2017 هذا الكود يمنع التعديل في الخلايا الني تحتوي على معادلات اذا اضفت اي معادلة الى الصفحة في اي خلية يطبق عليها الكود الكود (يوضع في جدث الصفحة المعنية وليس في موديل مستقل) Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False With Me .Unprotect .Cells.Locked = False With .Cells.SpecialCells(-4123, 23) .Locked = True .FormulaHidden = True End With .Protect End With Application.EnableEvents = True End Sub الملف مرفق Protect_Formula.rar 1 رابط هذا التعليق شارك More sharing options...
عاشق الاكسيل قام بنشر أغسطس 31, 2017 الكاتب مشاركة قام بنشر أغسطس 31, 2017 في 30/08/2017 at 15:37, سليم حاصبيا said: هذا الكود يمنع التعديل في الخلايا الني تحتوي على معادلات اذا اضفت اي معادلة الى الصفحة في اي خلية يطبق عليها الكود الكود (يوضع في جدث الصفحة المعنية وليس في موديل مستقل) Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False With Me .Unprotect .Cells.Locked = False With .Cells.SpecialCells(-4123, 23) .Locked = True .FormulaHidden = True End With .Protect End With Application.EnableEvents = True End Sub الملف مرفق Protect_Formula.rar استاذي سليم حاصبيا شكرا جدا علي المساعدة وعلي الكود . هل من الممكن التعديل عليه بحيث يعمل علي كافة الشيتات دفعة واحدة؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 استبدل اول 4 أسطر من الكود الى هذا الاسطر الاربعة (يوضع في حدث Thisworkbook وليس في موديل مستقل) Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False With ActiveSheet 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 (معدل) كود رائع جزاك الله خيرا استاذنا ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات في جميع الخلايا تم تعديل أغسطس 31, 2017 بواسطه حسين مامون رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 34 دقائق مضت, حسين مامون said: كود رائع جزاك الله خيرا استاذنا ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات في جميع الخلايا تسنطيع اجراء اي تنسيق على اي خلية(او محموعة خلايا) شرط الا يحتوي النطاق على معادلات 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 1 ساعه مضت, حسين مامون said: كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا هذا لان الورقة محمية بعد تنفيذ الكود لذلك يجب اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه) ثانياً الغاء الحماية عن الشيت ثالثاً-اجراء التنسيقات اللازمة و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه) 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 4 دقائق مضت, سليم حاصبيا said: هذا لان الورقة محمية بعد تنفيذ الكود لذلك يجب اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه) ثانياً الغاء الحماية عن الشيت ثالثاً-اجراء التنسيقات اللازمة و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه) جزاك الله خيرا استاذ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 31, 2017 مشاركة قام بنشر أغسطس 31, 2017 9 دقائق مضت, حسين مامون said: جزاك الله خيرا استاذ بمكن التعديل ايضاً على الكود بخيث يسمح بالتنسيق و ذلك بهذه الاضافة البسيطة ActiveSheet.Protect AllowFormattingCells:=True .protect تكتب مباشرة مكان 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر سبتمبر 1, 2017 مشاركة قام بنشر سبتمبر 1, 2017 هكذا احسن استاذنا حفظك الله رابط هذا التعليق شارك More sharing options...
حسام الدين الحسيني قام بنشر سبتمبر 12, 2017 مشاركة قام بنشر سبتمبر 12, 2017 بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان