إخفاء وحماية المعادلات برسالة تحذيرية والدخول برقم سرى - سعيد بيرم

[صالح أبو أحمد]

للرفع

[حمادة عمر]

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

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

[حمادة عمر]

السلام عليكم

الاخ الكريم /  صالح أبو أحمد

بارك الله فيك

يمكنك اخي الكريم بطريقة بسيطة وسهلة ودون تغيير الكود  

ان تقوم بتسمية  اعمدة النطاق  myrange  والنطاق الآخر لديك  mydata   وان كان هناك اي نطاق آخر  لديك في الورقة

وقم بتسميتهم اسم نطاق واحد وليكن مثلا   MYRANG1  وباستخدام نفس الكود سيتم تنفيذ المطلوب

ارجو ان يكون هو طلبك

وان كان غير ذلك في انتظار ردك

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

 

 

myrange.rar

[رائد 1982]

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

[حمادة عمر]

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

 

الاخ الكريم / رائد 1982

بارك الله فيك

[صالح أبو أحمد]

 

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

 

 

أخى الكريم حمادة أشكرك على سرعة الرد  

 

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

هذا هو المرفق أريد عمل الكود ليشمل النطاقين ( myrange  ) و (mydata   )

بدلاً من النطاق ( myrange  ) فقط

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

 

 

السلام عليكم

أشكرك أخى الكريم /  حمادة عمر

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

 المشكلة عندى فى الملف الحقيقى أن الملف كبير جداً وبة أكثر من 80 عمود غير متجاورة بهم دوال عندما أقوم بتسمية هذه الأعمدة كنطاق واحد لا ينطبق على بالكامل بل على بعضها .

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

أرجو أن يكون شرح طلبي واضح  

ولك منى كل الشكر والتقدير

myrange2.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / صالح أبو أحمد

بارك الله فيك

بما انك  تعرف الكود المستخدم واصبح سهل  التعامل معه

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

ولكن مع تغيير اسم النطاق كما تريد ... كما يلي في الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[T1] Then Exit Sub
  If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
  
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
  MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر "
 End If
 
 If Me.[T1] Then Exit Sub
  If Not Application.Intersect(Target, Range("mydata")) Is Nothing Then
  
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
  MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر "
 End If

End Sub

واليك الملف المرفق

وفي انتظار ردك

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

 

 

 

myrange3.rar

[صالح أبو أحمد]

السلام عليكم

الأخ العزيز / حمادة عمر

شكراً جزيلاً لك

هذا هو المطلوب بالضبط  بارك الله فيك وزادك من علمه

أنا معجب كثيراً بهذا المنتدى الهادف وكل ما أكون فاتح الجهاز  أكون أتابع مواضيعه الكثيرة الجميلة وأستفيد منها قدر المستطاع . بارك الله فى كل من ساهم فيه .

ممكن طلب كمان أرجو أن لا أكون ثقيل عليك

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

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