Yasser Fathi Albanna قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة 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...
Yasser Fathi Albanna قام بنشر فبراير 22, 2015 مشاركة قام بنشر فبراير 22, 2015 اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة 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...
ياسر خليل أبو البراء قام بنشر فبراير 22, 2015 مشاركة قام بنشر فبراير 22, 2015 الأخ الحبيب ياسر جرب الملف التالي ... بحماية الورقة Restrict Cursor Movement To Unprotected Cells.rar 2 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر فبراير 22, 2015 مشاركة قام بنشر فبراير 22, 2015 الأخ الحبيب ياسر جرب الملف التالي .. بحماية الورقة أخى وحبيبى أ / ياسر كود رائع وفكرة رائعة جدا جدا سلمت يداك دائما تبهرنى بأعمالك جزاك الله كل خير وجعله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ahmd_asd4 قام بنشر فبراير 22, 2015 مشاركة قام بنشر فبراير 22, 2015 كود أكثر من رائع في مشكلة عندما تم نسخ الكود إلى أكثر من ملف منفصل لا يعمل ما السبب؟؟!!!! ولكم جزيل الشكر بمعنى أنه اشتغل في ملف و باقي الملفات لم يشتغل رابط هذا التعليق شارك More sharing options...
shmtarek قام بنشر أغسطس 2, 2015 مشاركة قام بنشر أغسطس 2, 2015 في الملف المرفق أريد تطبيق حماية المعادلات من العبث والتغيير وإخفائها بدون الحاجة لحماية الورقة والسبب في ذلك لأن ملف العمل عندي المراد حماية معادلاته يحتوي على أكواد فرز وتصفية والعديد من المعادلات والاكواد وحماية الورقة يؤدي إلى إلغاء عمل هذه الأكواد ويعطي رسائل خطأ سببها حماية ورقة العمل المطلوب هنا هو حماية المعادلات وإخفائها بدون حماية ورقة العمل لكم جزيل الشكر والاحترام حماية للمعادلات بدون حماية ورقة العمل.rar ررررررررررررررائع رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أغسطس 4, 2015 مشاركة قام بنشر أغسطس 4, 2015 (معدل) ممكن الكود يا استاذ ياسر عشان الملف مش بيتحمل بعد تحديث الموقع من ساعت ما عملو تحديث للموقع مش عارف اجيب اى حاجه قديمه من هنا الاول كنت بدخل ادور فى المواضيع تم تعديل أغسطس 4, 2015 بواسطه محمود فؤااد رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أغسطس 5, 2015 مشاركة قام بنشر أغسطس 5, 2015 السلام عليكم الرابط لا يعمل ممكن طريقة اخرى رجاء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2015 مشاركة قام بنشر أغسطس 5, 2015 (معدل) إخواني الكرام أعتذر عن التأخر في الرد على هذا الموضوع بالذات فقد ظهر لي أن الموضوع به مشاركة غير مقرؤءة فلما تصفحت الموضوع وجد آخر رد للأخ الحبيب ياسر فتحي وبعد ذلك بيوم تقريباً وجدت أن الموضوع غير مقروء بالنسبة لي ووجدت آخر مشاركة للأخ ياسر فتحي فبدا لي أن الأمر يتعلق بالموقع ومشاكله ولم ألاحظ إلا الآن أن هناك صفحة ثانية للموضوع (وهذه ميزة افتقدناها مع التحديث الجديد) لأنه في السابق كان هناك فهرس للصفحات في المنتدى فكان بالإمكان الانتقال لآخر صفحة بشكل مباسر ... والله زمان المهم مطولش عليكم قولوا إنت طولت خلاااااااااااص وخدت من وقتكم إليكم الحل التالي عله يفي بالغرض وينهي هذه المشكلة تماماً.. Private Sub Workbook_Open() 'إخفاء المعادلات عن طريق حماية ورقة العمل ، قم بتحديد كل خلايا الورقة '[Locked] كليك يمين ثم تنسيق خلايا وأزل علامة الصح بجانب الخيار المسمى 'حدد الخلايا المراد عمل حماية لها والتي تحتوي المعادلات المراد حمايتها '[Locked] كليك يمين عليها ثم تنسيق خلايا وضع علامة صح بجانب الخيار المسمى '[Protect Sheet] ثم الأمر [Review] قم بعمل حماية لورقة العمل من خلال التبويب 'قم بوضع الكود التالي في حدث المصنف لتتم الحماية عن طريق عدم تمكين المستخدم 'من اختيار أو تحديد الخلية المحمية وبذلك يتم حمايتها وإخفائها من العبث '--------------------------------------------------------------------------- Worksheets("Sheet1").EnableSelection = xlUnlockedCells End Sub هو السطر دا وبس وخلصت الحكاية تم تعديل أغسطس 5, 2015 بواسطه ياسر خليل أبو البراء رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 5, 2015 مشاركة قام بنشر أغسطس 5, 2015 انسخ هذا الكود الى حدث الصفحة و اعطني رأيك Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub 7 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2015 مشاركة قام بنشر أغسطس 5, 2015 بسم الله ما شاء الله عليك أخي الحبيب سليم مبدع كعادتك دائماً ..تسلم على هذه الفكرة الجميلة 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أغسطس 6, 2015 مشاركة قام بنشر أغسطس 6, 2015 شكرا لتعب حضرتك معانا بس برضو فى مشكله انى لو وقفت على الخليه الى فيها المعادلة وخلتنى دايس على كليك شمال المعادله بتظهر فوق رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2015 مشاركة قام بنشر أغسطس 6, 2015 طريقتي لا يمكن تحديد الخلية مطلقاً ..راجع آخر مشاركة لي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 6, 2015 مشاركة قام بنشر أغسطس 6, 2015 (معدل) هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub تم تعديل أغسطس 6, 2015 بواسطه سليم حاصبيا 8 2 رابط هذا التعليق شارك More sharing options...
aboghazi قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 رائع اخي سليم 1 رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 السلام عليكم ورحمة الله وبركاته اريد كود عند الضغط على زر ، يمسح كل المعادلات ويترك قيمها من جميع الاوراق او المصنف كله رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 وعليكم السلام أخي الكريم جمال عادةً لا يلتفت للطلبات في المشاركات الفرعية لذا من الأفضل دائماً طرح موضوع جديد كما فعلت ، وقد تم الرد في موضوعك تقبل تحياتي رابط هذا التعليق شارك More sharing options...
محمد دودان قام بنشر أبريل 28, 2016 مشاركة قام بنشر أبريل 28, 2016 شكرا على الموضوع المهم جدا ولكن أخي لم تطبق معي المعادلة هل ممكن توضيح بالصور وأين اضع المعادلة في اي حقل من أجل اخفاء المعادلات كلها رابط هذا التعليق شارك More sharing options...
محمد دودان قام بنشر أبريل 29, 2016 مشاركة قام بنشر أبريل 29, 2016 هل من رد حول المعادلة فالمعادلة أما ناقصة أو غير صحيحة هل من عرض تصويري رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 29, 2016 مشاركة قام بنشر أبريل 29, 2016 أخي الكريم محمد أهلا بك في المنتدى ونورت بين إخوانك الموضوع مشروح بالتفصيل في الموضوع على هذا الرابط الرابط من هنا تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد دودان قام بنشر مايو 3, 2016 مشاركة قام بنشر مايو 3, 2016 جزاك الله خيرا أخي الكريم سأتابع الموضوع ونتعلم بفضل الله ثم ثم ثم بفضل إخواني بالمنتدى ولكن أخي الكريم الموضوع الذي أريد تعلمه عن طريق الكود الذي كتبه الأخ أبو حنين وليس حماية ورقة العمل وشكراً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 3, 2016 مشاركة قام بنشر مايو 3, 2016 قم بإرفاق الكود الذي تود شرحه أو التعديل عليه ..وليكن الكود بين أقواس الكود لكي يظهر بشكل منضبط رابط هذا التعليق شارك More sharing options...
احمد بن ابراهيم قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 On 12/2/2014 at 10:38 PM, morestudy said: السلام عليكم ورحمة الله وبركاته. أستاذي الفاضل أشكرك على هذا الكود الرائع والذي نفعني في حماية معادلاتي من التغيير. سؤالي هذا الكود يقوم بحماية الخلايا التي فيها معادلات ولكن عندما نقوم بعمل تضليل للخلية التي فيها معادلة وخلية ليس فيها معادلة وقمنا بحذفها فإن المعادلة تُحذف. فهل هناك طريقة للإضافة على هذا الكود أمر بمنع حذف المعادلات حتى ولو ضللنا خلايا كثيرة. اسعد الله ايامكم بارك الله في جهودك ابو حنين نرجوا منكم حل مشكلة الحذف بعد التظليل morestudy كما ذكر الاستاذ للأهمية ولكم ولجميع المبدعين الشكر الجزيل رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 في ٦/٨/٢٠١٥ at 15:37, سليم حاصبيا said: هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub كود راءع اخي سليم رابط هذا التعليق شارك More sharing options...
احمد بن ابراهيم قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 On 12/2/2014 at 10:38 PM, morestudy said: اسعد الله ايامكم تم استخدام هذا الكود بس المشكلة عند تحديد خلية غير محمية ( ليس بها معادلات ) مع الخلية المحمية و عمل مسح لهم تمسح المعادلات في الخلية المحمية و نفقد بياناتها في الملف المرفق قم بتظليل خليتين B5معB6( خلية محمية ) ثم مسح سيتم مسح جميع البيانات وشكرا على حسن تواصلكم 55.rar رابط هذا التعليق شارك 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.