اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

بدون حماية للورقة احمي المعادلة


الردود الموصى بها

بدون الحاجة لحماية الورقة بكلمة مرور أو غيره

 

إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select
End Sub

  • Like 1
رابط هذا التعليق
شارك

جميل أخي على المصري

بارك الله فيك

.. لكن جرب أن تضغط بزر الماس الأيسر على الخلية التي بها المعادلة مع الاستمرار في الضغط

مفيش فايدة :geek:

رابط هذا التعليق
شارك

السلام عليكم

وكما اخبرنا اخي الحبيب الاستاذ / ياسر خليل ... جزاه الله خيرا

فعلا اخي الكريم / علي المصري ... بهذه الطريقة ( مفيش فايدة :geek: ) هههههههههههه

 

واضافة للكود المرفق منك ولمن يحتاجه

اليك تعديل بسيط ليعمل هذا الكود وبنفس الطريقة علي الخلايا المفردة والخلايا في حالة دمجها

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.MergeCells & Target.HasFormula = True Then Target.Offset(0, 1).Select
If Target.HasFormula = True Then Target.Offset(0, 1).Select
End Sub

تقبلوا خالص تحياتي

 

 

حماية المعادلات حتي في الخلايا المدمجة.rar

رابط هذا التعليق
شارك

الأخ الحبيب حماده عمر

بارك الله فيك على الإضافة .. بس بردو مفيش فايدة

ممكن نقدر في حالة واحدة .. نجيب بودرة عفريت من عند (العفريت) ونلبس الخلية طاقية الاخفا :cool2:

  • Like 1
رابط هذا التعليق
شارك

لا حرمنا الله منك اخي واستاذنا الغالي  / ياسر خليل  ولا من خفة دمك الجميلة

والعفريت جمبك ولا حاجة

ويا بخت تلاميذك بيك

رابط هذا التعليق
شارك

أستاذي الفاضل علي المصري

أستاذي الفاضل حمادة عمر

بالنسبة لهذا الكود الذي يقوم بحماية المعادلة هل يقوم بحمايتها من المسح Delete عند تحديد أكثر من خلية ليس فيها معادلات مع الخلية التي فيها معادلات. أرجو الإفادة.

تم تعديل بواسطه morestudy
رابط هذا التعليق
شارك

أعتقد لا يوجد طريقة ناجحة لحماية المعادلات إلا بحماية ورقة العمل ..

ودي كمان يسهل كسرها ..

يعني زي ما قلت : مفيش فايدة .. الموضوع دا حاولت فيه لما طلعت عيني ومفيش فايدة

بس أرجع أقول لا يأس طول ما فيه نفس .. يمكن يكون فيه طريقة مع ابن مصر محدش يعرفها غيره

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / morestudy

بارك الله فيك

بالنسبة لسؤالك بخصوص المسح فعند تحديد مجموعة خلايا من ضمنها الخلايا المقصودة فان عملية المسح تتم بالفعل ويتم مسح البيانات

ولتنيذ ذلك فيمكن استخدام اكواد أخري ذات فعالية اعلي

تقبل خالص تحياتي

 

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم /http://www.officena....showtopic=41520

==============
الادارة
==============

رابط هذا التعليق
شارك

الأستاذ الفاضل حمادة. أشكرك لإجابتك على سؤالي. وأحترم رغبة المنتدى بالتعامل بالاسماء العربية ولكن هذا هو لقبي المتعارف عليه في الفيس بوك وفي جميع المنتديات والمواقع العربية والأجنبية التي سجلت فيها. لذا استميحكم العذر بالبقاء بهذا الاسم إذا لم يكن فيه أي ضيق أو إساءة. وشكراَ.

تم تعديل بواسطه morestudy
رابط هذا التعليق
شارك

شكراً لفريق الموقع وكل من شرف الموضوع بالرد

جزاكم الله خيرا

 

كلامكم جميل جدا ولكن

 

هل كل من يستخدم الاكسيل في عبقريتكم

 

هذا الكود للحماية حتى لا يتم تغيير المعادلة او العبث فيها دون قصد وبالتالي تعطي نتائج خاطئة

 

وذلك مثلا عند عملي لبرنامج لتحليل النتائج بالمدرسة باستخدام هذ الكود لمنع باقي المعلمين من الكتابة فوق هذه الخلية

 

شكرا جزيلا

وشكر استاذ حمادة على اضافة حالة الدمج

 

 

جزاكم الله خيرا

رابط هذا التعليق
شارك

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If ActiveCell.HasFormula = True Then ActiveCell.Offset(0, 1).Select
End Sub

عدم الوقوف على الخلية المفردة أو المدمجة التى بها دالة

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information