سليم حاصبيا قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 منذ ساعه, احمد بن ابراهيم said: اسعد الله ايامكم تم استخدام هذا الكود بس المشكلة عند تحديد خلية غير محمية ( ليس بها معادلات ) مع الخلية المحمية و عمل مسح لهم تمسح المعادلات في الخلية المحمية و نفقد بياناتها في الملف المرفق قم بتظليل خليتين B5معB6( خلية محمية ) ثم مسح سيتم مسح جميع البيانات وشكرا على حسن تواصلكم 55.rar قم بتغيير الكود الى هذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub 3 1 رابط هذا التعليق شارك More sharing options...
احمد بن ابراهيم قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 (معدل) ابدعت استاذ سليم اصبح الكود مميز فالشكر لله ثم لكم و للجميع ممكن نضيف السماح بالنسخ و اللصق اذا كان هناك جداول متشابة التصميم اذا امكن تم تعديل أغسطس 22, 2016 بواسطه احمد بن ابراهيم رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 23, 2016 مشاركة قام بنشر أغسطس 23, 2016 شكرا لكم جميعا رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر أكتوبر 9, 2016 مشاركة قام بنشر أكتوبر 9, 2016 رائع رائع رائع رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر سبتمبر 4, 2017 مشاركة قام بنشر سبتمبر 4, 2017 شكرا لكم على هذا الكود الرائع لكن عندي سؤال ماهي طريقة تطبيقه على جميع الصفحات؟ رابط هذا التعليق شارك More sharing options...
rofa97 قام بنشر سبتمبر 30, 2017 مشاركة قام بنشر سبتمبر 30, 2017 بارك الله فيك رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أكتوبر 1, 2017 مشاركة قام بنشر أكتوبر 1, 2017 في 9/4/2017 at 17:33, صـدّيـق said: شكرا لكم على هذا الكود الرائع لكن عندي سؤال ماهي طريقة تطبيقه على جميع الصفحات؟ ماهي طريقة تطبيقه على جميع الصفحات؟ رابط هذا التعليق شارك More sharing options...
فراس قاسم قام بنشر فبراير 23, 2018 مشاركة قام بنشر فبراير 23, 2018 (معدل) في ١٤/١٠/٢٠١٢ at 01:14, أبو حنــــين said: استعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Range("C5").Formula = "=SUM(A:A)" End Sub في ١٤/١٠/٢٠١٢ at 05:23, أم عبد الله said: أرجو شرح الكود لاستخدامه في عدة ملفات ولكم جزيل الشكر كيف استخدام الكود وأين يوضع ممكن الشرح تم تعديل فبراير 23, 2018 بواسطه فراس قاسم رابط هذا التعليق شارك More sharing options...
جمعة العوامي قام بنشر أبريل 17, 2018 مشاركة قام بنشر أبريل 17, 2018 شروحات وافية واراء متعددة بارك الله فيكم ... رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر فبراير 2, 2019 مشاركة قام بنشر فبراير 2, 2019 في ١٤/١٠/٢٠١٢ at 23:09, أبو حنــــين said: اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub بارك الله فيكم رابط هذا التعليق شارك 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.