كود حماية

[Yasser Fathi Albanna]

الرجاء من السادة الكرام

أريد كود يجعل عند بداية فتح الشيت يطلب باسوورد ولا يفتح الشيت إلا بالباسوورد

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

 

 

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

 

الرجاء الإفادة

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

اخى ياسر

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

مرفق اليك شيت لحمايه نطاق معين من التعديل

الا بعد ادخال الباسوورد

الباسوورد123

 

حماية أكثر من نطاق بدون حماية الورقة.rar

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

اخى ياسر

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

مرفق اليك كود يمنع الدخول الى

الشيت الا برقم سرى

الرقم 123

 

دخول برقم123.rar

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

اخى ياسر

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

نحن فى انتظار رد العمالقه

على سؤالك

هل يوجد كود يمنع نسخ المعادلات

[Yasser Fathi Albanna]

أخى العزيز إبراهيم أبو ليلة أشكرك على مجهودك العظيم جدا وأتمنى لك دوام النتوفيق

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

وشكرا

[Yasser Fathi Albanna]

لو سمحت أخ أو ليلية عايز أطبق الكود الاتى على الشيت المرفق بعد إزنك

 

[Yasser Fathi Albanna]

أسف على سرعة الكتابة فى الخطا فى الإسم أخ أبو ليلة

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

اخى ياسر

تفضل

اتمنى ان يكون هذا هو المطلوب

Achievement.rar

[Yasser Fathi Albanna]

أخى الفاضل إبراهيم أبو ليلة

تم بالفعل عمل المطلوب ولكن فى الجزء إللى فوق فقط من المعادلات ولكن الجزء الأسفل لم يتم التطبيق به أين السبب  ولم يطبق على الشيت الثانى أيضا الموجود بجوار الشيت المعمول به الكود

رجاء الإفاده وشكرا لتعب حضرتك معايا

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

اخى ياسر

اليك التعديل

 

 

Achievement_3.rar

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

اخى ياسر

بالنسبه لعمل ذلك

على الشيت الاخر

لابد ان تتعلم كيف تفعل ذلك

1-قم بتحديد الخلايا التى تريد تطبيق الكود عليها

2-اذهب الى formulas--ثم name manager--ثم new--ثم قم بكتابة اى اسم فى name وليكن yaser

3-قم بالضغط على زر ok

4- اذهب الى vba

5-قم بفتح ناذة الشيت vba المطبق عليه الكود لتأخذه كوبى

6-قم بفتح نافذة الشيتvba الذى تريد تطبيق الكود عليه ثم قم بالصاق الكود المأخوذ من الشت الاخر

7- قم بتغير كلمة MYRANGEالى كلمه yaser

[جرب بعد ذلك ادخال البيانات فى الشيت

ستجد الكود بإذن الله يعمل جيدا

مرفق فيدو يوضح الطريقه

as.rar

[Yasser Fathi Albanna]

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