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

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

والصلاة والسلام على رسول الله اللهم صلى عليه أفضل الصلاة وأذكى السلام

السادة الاخوة والاخوات

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

سألا المولى العلى القدير أن يوفقنا جميعا لصالح الاعمال
أرجو من حضراتكم المساعدة فى هذا المرفق
ويتعلق الموضوع

بكيفية إخفاء وحماية المعادلات على إختلاف نطاقتها بنحو
لايتمكن المستخدم  العبث بتلك المعادلات

بحيث تظهر له رسالة تحذيرية على النحو التالى

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

فجميع الخلايا ذات اللون الاخضرذو حماية وإخفاء

فيما عدا ذلك فهو متاح للمستخدم

والمطلوب بإذن الله تعالى أن يصل ملف العمل إلى 750 موظف

وفقنا الله واياكم وتقبلوا وافراحترامى وتقديرى

وجزاكم الله تعالى خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / سعيد بيرم

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

 

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

او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange

ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك

 

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
    End If
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)

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

 

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

تم تعديل مارس 5, 2013 بواسطه حمادة عمر

[أبو سجده]

بسم الله الرحمن الرحيم

أخى العزيز الاستاذ / عبدالله المجرب " ابو احمد "

كل عام وانتم بخير

أولا أشكركم على اهتمامكم بإضافة حرف الباء بكلمة رسالة

بعنوان الموضوع كما أشرت لسيادتكم عبر رسالتى لكم

ثم أشكر هذة الوجوه الكريمة التى تشاركنى الموضوع

فتحية طيبة من عند الله عليكم جمبعا

فهذا أخى حماده عمر وهذا أخى حسين العضلوجى

فالله أسأل أن يوفقنا جميعا لما يحب ويرضى

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

[عبدالله المجرب]

اخي سعيد جرب الملف

 

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

[إبراهيم ابوليله]

الاخوه الكرام

الاخ عبدالله

الاخ حماده

بارك الله فيكم

اكواد رائعه

ونسأل الله الا يحرمنا من مشاركاتكم

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

بارك الله فيك

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

[أبو سجده]

^{بسم الله الرحمن الرحيم}

^{وبه نستعين}

^{أخى العزيز الاستاذ الفاضل / عبدالله المجرب}

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

^{أشكركم أخى العزيزلهذة المشاركة الطيبة}

^{فكما تعلم أخى العزيز}

^{أننى لست خبيرا بالاكواد نظرا لحكم السن}

^{والوقت وظروف العمل التى تؤثر سلبا}

^{على عدم تمكنى من دراستها حتى الآن}

^{تم تحميل المرفق وسيتم إطلاعكم على النتيجة}

^{وكلى ثقة فى الله أولا وفى هذه العقلية المنيره}

^{التى أهداها الله تعالى إلينا}

^{جعلكم الله تعالى عونا للجميع}

^{فلاتحرمنا من متابعة الموضوع}

^{جزاكم الله خيرا}

[أبو سجده]

بسم الله الرحمن الرحيم

أخى العزيز الاستاذ / عبدالله المجرب

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

بداية جزاكم الله خيرا

تم تجربة الكود الذى تفضلتم به على الملف الاصلى

ولاأملك سوى قولى بارك الله فيكم

فالحمد لله تعالى فالملف يعمل بكفائة عالية

ولى طلب أخر وهو الجزء الآهم ألا وهو عدم تمكن المستخدم

من رؤية المعادلات بأى حال من الآحوال

لآنه على الوضع الحالى يمكن للمستخدم عمل UNPROTECT

وبالتالى يمكنه مشاهدة المعادلات ومن ثم نسخها أو العبث بها

 وهل يمكن حماية الـــ VBA بكلمة سر

حتى لايتمكن المستخدم من العبث بالكود الذىتفضلتم به

نرجو الافادة وجزاكم الله خيرا

تقبل وافر احترامى وتقديرى

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيز الاستاذ / عبدالله المجرب

تحية طيبة من عند الله

أرجو قبول العذر لعدم التركيز قليلا

المطلوب بحول الله تعالى

 حماية الـــ VBA بكلمة سر

حتى لايتمكن المستخدم من العبث بالكود الذى تفضلتم به

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

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

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

تقبل وافر احترامى وتقديرى

[حمادة عمر]

السلام عليكم

الاستاذ الكريم / سعيد بيرم

 

اليك طريقة حماية الـــ VBA بكلمة سر بشرح فيديو

 

طريقة عمل باسور لمحرر الاكواد.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيز المحترم / حماده عمر

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

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

وأشكركم لحسن تعاونكم معى

تشرفت بكم أخا غاليا وصديقا حميما أفخر به

وفى القريب بإذن الله

سيتم رفع برنامج المرتبات فى ثوبه الجديد

أتعشم أن ينال رضا الجميع

تفبل وافر احترامى

[حمادة عمر]

السلام عليكم

الاخ والاستاذ / سعيد بيرم

 

لك مني اجمل تحيه

وشرف لي ان يكون لي صديق مثلك

والف مليون شكر لهذا الصرح العملاق لانه جعلني اتعرف علي اشخاص مثلك

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

[ناصر سعيد]

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

عند وضع كود الاستاذ الفاضل عبد الله في ملفي  ..  تحمي المعادله ولكن تظهر المعادله

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

تم تعديل مارس 9, 2013 بواسطه nasersaeed

[عبدالله المجرب]

عند وضع كود الاستاذ الفاضل عبد الله في ملفي  ..  تحمي المعادله ولكن تظهر المعادله

 

في البداية يجب ان تحدد جميع الخلايا 

ثم من تنسيق الخلايا اختر حماية 

قم بإزالة الصح من خانتي تم تأمينها ومخفية

 

بعدها قم بتحديد خلايا المعادلات ثم من تنسيق الخلايا قم بوضع صح على خانتي تم تأمينها ومخفية

ثم فعل الكود ولاحظ النتيجة

[أبو سجده]

 

عند وضع كود الاستاذ الفاضل عبد الله في ملفي  ..  تحمي المعادله ولكن تظهر المعادله

 

في البداية يجب ان تحدد جميع الخلايا 

ثم من تنسيق الخلايا اختر حماية 

قم بإزالة الصح من خانتي تم تأمينها ومخفية

 

بعدها قم بتحديد خلايا المعادلات ثم من تنسيق الخلايا قم بوضع صح على خانتي تم تأمينها ومخفية

ثم فعل الكود ولاحظ النتيجة

بسم الله الرحمن الرحيم

أخى العزيز الاستاذ / عبدالله المجرب

هذا بالفعل ماتم وقبل إطلاعى على هذة المشاركة الطيبة

فهذا الكود الفريد والاوحد على مستوى المنتدى

الذى أثبت كفائته ودون منازع لحماية واخفاء المعادلات

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

هذا من وجهة نظرى المتواضعه

وعفوا أخى أبوأحمد لاختلاط الامر

معى لظروف نفسية خارجة عن ارادتى وقتئذ

بشأن الطلب الاول بالمشاركة رقم 8

لأنه من البديهى أنه من يقوم بوضع كلمة السر

هو صاحب البرنامج الاصلى والذى يريد حمايته من العبث

وقد تم حماية الكود كما أشار أخى العزيز / حماده عمر

أسأل الله تعالى أن يوفقه دائما

فهذة الاجابة ليست أفضل إجابة 

بل هى أروع إجابة من الرائع المتألق أبوأحمد " حماكم الله تعالى "

فجزاكما الله تعالى عنى خيرا

[قنديل الصياد]

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

الاستاذ / حمادة عمر

بارك الله لك وفيك وعليك

واثابك الجنة

وكل عام وحضرتك بخير

[أبو سجده]

على المستثمر بذل الجهد حتى يصل لما يصبوا اليه

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

بسم الله الرحمن الرحيم

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

الأخوة الكرام

الأخ حمادة عمر

الأخ عبد الله المجرب

بارك الله فيكم

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

أرجو التعديل على الكود بحث يشمل أكثر من نطاق أو أكثر من عمود غير متجاورة

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

[أبو محمد عباس]

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

الاستاذ ابو احمد جزاك الله خيرا كود رائع

الاستاذ سعيد بيرم حفظك الله ورعاك

الاستاذ والاخ الحبيب ابو سما  ما شاء الله مبدع بلا حدود في كل شيء

زادك الله علما وخيرا كثيرا

تقبلوا فائق احترامي وتقديري

[حمادة عمر]

السلام عليكم

الاخ الحبيب / قنديل الصياد

بارك الله فيك

جزيل شكري وعظيم امتناني علي كلماتكم الاكثر من راائعة

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

[حمادة عمر]

السلام عليكم

الاخ الحبيب / أبو محمد عباس

بارك الله فيك

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

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

وسلامي الي محمد الغالي

[حمادة عمر]

 

بسم الله الرحمن الرحيم

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

الأخوة الكرام

الأخ حمادة عمر

الأخ عبد الله المجرب

بارك الله فيكم

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

أرجو التعديل على الكود بحث يشمل أكثر من نطاق أو أكثر من عمود غير متجاورة

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

 

 

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

بارك الله فيك

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

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم / سعيد بيرم

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

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

او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange

ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك

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
    End If
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)

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

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

اخى العزيز حمادة

ممكن ادراج الكود فى مثال

جزاك الله خير

[۩◊۩ أبو حنين ۩◊۩]

الاخ الفاضل حماده

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

تم ادراج المشكله التى واجهتنى

جزاك الله خير

لا داعى لعمل مثال

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

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

 

 

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

 

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

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

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

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

 

myrange.rar