اذهب الي المحتوي
أوفيسنا

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


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

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

وبه نستعين

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

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

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

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

ويتعلق الموضوع

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

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

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

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

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

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

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

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

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

السلام عليكم

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

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

 

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

 

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

تم تعديل بواسطه حمادة عمر
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

 

بارك الله فيك

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

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

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

وبه نستعين

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

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

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

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

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

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

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

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

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

التى أهداها الله تعالى إلينا

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

وبه نستعين

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

 

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

 

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

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

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

وبه نستعين

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

 

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • 4 months later...

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

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

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

واثابك الجنة

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

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

  • 2 weeks later...
  • 3 months later...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

بارك الله فيك

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

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

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

السلام عليكم

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

بارك الله فيك

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

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

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

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

 

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

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

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

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

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

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

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

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

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

 

 

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

بارك الله فيك

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

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

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

السلام عليكم

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

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information