حماية المعادلات عن طريق الاكواد

[mahmoud3121983]

السلام عليكم ورحمة الله وبركاته

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

ولكم مني وافر التحية 

[mahmoud3121983]

السلام عليكم ورحمة الله وبركاته

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

ولكم مني وافر التحية 

If Me.[T1] Then Exit Sub

If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then

Application.EnableEvents = False

Application.Undo

Application.EnableEvents = True

MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء"

End If

End sub

[أ / محمد صالح]

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

http://www.officena.net/ib/index.php?showtopic=57328

[mahmoud3121983]

جزاك الله خيرا واشكرك علي الاهتمام ولكن هل من امكانية اضافة رسالة تحذيرية عفوا ليس لديك الصلاحية لاجراء هذا التعديل

[أ / محمد صالح]

لا مشكلة

أضف كود الرسالة قبل

end if

تم تعديل أبريل 29, 2015 بواسطه أ / محمد صالح

[mahmoud3121983]

بارك الله فيك اخي الفاضل ولكن عند اضافة الرسالة يقوم بتطبيقها علي جميع الخلايا وليس فقط المعادلات ... ع العموم اشكرك جزيلا علي الاهتمام

[أ / محمد صالح]

هذا ما تريده أنت

الكود ينقل المؤشر بعيدا عن الخلية التي بها معادلة

وأنت تريده أن يظهر رسالة بأنك ليس لك صلاحيات

عندما يمر على كل خليه بها معادلة!!!

[mahmoud3121983]

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

[ياسر خليل أبو البراء]

أخي الفاضل

سبق أن طرح الموضوع ، وقدم الأستاذ الكبير سليم حاصبيا الحل الرائع

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim rng As Range
   For Each rng In Target.Cells
      If rng.HasFormula Then
         ActiveSheet.Protect
         Exit Sub
      Else
         ActiveSheet.Unprotect
      End If
   Next rng
End Sub

ولم ترد عليه ولم تحدد إجابته كأفضل إجابة ..

بدلاً من الأكواد المنقولة حاول أن توضح طلبك بشكل أكثر تفصيلاً ...

 

رابط الموضوع الآخر لمن هو مهتم بالأمر

http://www.officena.net/ib/index.php?showtopic=60990

 

أمر آخر : ارفق الملف الذي تعمل عليه

 

ويراعى عند وضع الأكواد أن تكون بين أقواس تنصيص <>

[mahmoud3121983]

اخي الفاضل اشكرك شكرا جزيلا ع الاهتمام اما بخصوص الاستاذ سليم فقد قمت بالرد عليه ولم احدد اجابته افضل اجابة لاني كنت لم انتهي معه بعد ..وساكتفي بالاكواد المقدمة من الاخوة الافاضل ولكم جميعا جزيل الشكر

[أ / محمد صالح]

لا مشكلة 

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

لذلك لم يتم التطبيق على الخلية التي بها معادلة فقط

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula = True Then
 ActiveCell.Offset(0, 1).Select
msgbox "any text"
end if
End Sub

[ياسر خليل أبو البراء]

أخي الفاضل

لم أقصد ان تكف عن الطلب ، وإنما قصدت أن يكون طلبك واضحاً وضوح الشمس ، حتى تجد المساعدة بالشكل المناسب

 

وكأنك في مشاركتك بتقول بلسان حالك (خلاص قرفت منكم ومش عايز منكم حاجة .!! )

هون عليك ولا تأخذ الكلام بمحمل آخر ، فما أردت إلا المنفعة العامة ، ولو لاحظت في مشاركاتي أحاول أن أنظم المنتدى بشكل ييسر على الجميع

 

يرجى تغيير اسمك للغة العربية لسهولة التواصل

يرجى إرفاق ملف للعمل عليه ولفهم المطلوب بشكل أوضح

 

وفقنا الله وإياك لكل خير

[mahmoud3121983]

صدقني لم اقصد ذلك فانا اعلم جيدا ان الاعضاء والقائمين علي المنتدي علي درجة عالية من الرقي الفكري والاخلاقي .. وجزاكم الله كل خير علي ماتقدمونه من علم نافع

[mahmoud3121983]

ا/ محمد صالح بارك الله فيك وزادك من العلم وجعله في ميزان حسناتك

اشكرررررررررك شكررررررررا جزيلا هذا ما اريد بالضبط ... وشكرا لك علي حسن التعاون واشكرك علي مجهودك ونعبك في تقديم الحل لي