عاشق الاكسيل قام بنشر أغسطس 30, 2017 قام بنشر أغسطس 30, 2017 السلام عليكم ورحمة الله وبركاته عايز كود يقوم بحماية اى خلية بها معادلة من التعديل واخفاء المعادلة
سليم حاصبيا قام بنشر أغسطس 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
عاشق الاكسيل قام بنشر أغسطس 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 استاذي سليم حاصبيا شكرا جدا علي المساعدة وعلي الكود . هل من الممكن التعديل عليه بحيث يعمل علي كافة الشيتات دفعة واحدة؟
سليم حاصبيا قام بنشر أغسطس 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
حسين مامون قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 (معدل) كود رائع جزاك الله خيرا استاذنا ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات في جميع الخلايا تم تعديل أغسطس 31, 2017 بواسطه حسين مامون
سليم حاصبيا قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 34 دقائق مضت, حسين مامون said: كود رائع جزاك الله خيرا استاذنا ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات في جميع الخلايا تسنطيع اجراء اي تنسيق على اي خلية(او محموعة خلايا) شرط الا يحتوي النطاق على معادلات 1
حسين مامون قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا
سليم حاصبيا قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 1 ساعه مضت, حسين مامون said: كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا هذا لان الورقة محمية بعد تنفيذ الكود لذلك يجب اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه) ثانياً الغاء الحماية عن الشيت ثالثاً-اجراء التنسيقات اللازمة و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه) 1
حسين مامون قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 4 دقائق مضت, سليم حاصبيا said: هذا لان الورقة محمية بعد تنفيذ الكود لذلك يجب اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه) ثانياً الغاء الحماية عن الشيت ثالثاً-اجراء التنسيقات اللازمة و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه) جزاك الله خيرا استاذ
سليم حاصبيا قام بنشر أغسطس 31, 2017 قام بنشر أغسطس 31, 2017 9 دقائق مضت, حسين مامون said: جزاك الله خيرا استاذ بمكن التعديل ايضاً على الكود بخيث يسمح بالتنسيق و ذلك بهذه الاضافة البسيطة ActiveSheet.Protect AllowFormattingCells:=True .protect تكتب مباشرة مكان 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.