S0bhy قام بنشر نوفمبر 16, 2019 مشاركة قام بنشر نوفمبر 16, 2019 السلام عليكم ورحمة الله وبركاتة بعد البحث فى المنتدى ومنتديات اجنبية اخري تم الحصول على الكود التالى الذى وظيفتة حمايىة الخلايا التى تحتوى على معادلات تلقائيا : Private Sub Worksheet_selectionchange(ByVal target As Range) If target.HasFormula Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub ولكن ل للاسف عند تطبيقىة بالملف المرفق يتبين وجود الكود فى module ولكن لا يتم تفعيل الماكرو كما هو موضح بالصور : ارجو المساعدة تم تعديل الملف طالما ان الملف تريد وضع به اكواد فلابد من رفعه بامتداد Xlsm ولا تقوم برفع الملف مضغوط طالما حجمه صغير وذلك تجنبا لعدم اهدار وقت الأساتذة فى المساعدة Protect.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أحمد يوسف قام بنشر نوفمبر 16, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 16, 2019 بالطبع لا يوضع هذا الكود بموديول عادى ولكن يتم وضع الكود بحدث الصفحة التى بها المعادلات المطلوب حمايتها Protect.xlsm 1 رابط هذا التعليق شارك More sharing options...
S0bhy قام بنشر نوفمبر 16, 2019 الكاتب مشاركة قام بنشر نوفمبر 16, 2019 اولا شكرا جزيلا لك اخى الكريم على التوجيهات والمعلومات القيمة وجزاكم الله كل خير ثانيا اريد ان افهم كيف وضعت الكود بحدث الصفحة وما المقصود بحدث الصفحة بعذ اذنك. اريد تطبيق المثال على اكثر من ورقة عمل افادكم الله رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر نوفمبر 16, 2019 مشاركة قام بنشر نوفمبر 16, 2019 بارك الله فيك وذلك بكل بساطة بالضغط على اسم الصفحة بيمين الماوس ثم اختيار View Code فسيتم فتح نافذة جديدة يمكنك لصق هذا الكود بها أو يمكنك بكل سهولة بتعميم هذا الكود على جميع صفحات الملف مرة واحدة وذلك بلصق هذا الكود بحدث ThisworkBook وذلك كما بالصورة رقم 2 1 رابط هذا التعليق شارك More sharing options...
S0bhy قام بنشر نوفمبر 17, 2019 الكاتب مشاركة قام بنشر نوفمبر 17, 2019 جزاكم الله خير اخى وشكرا ما قصرت الله يعطيك الف عافية رابط هذا التعليق شارك 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.