كيف اضيف كلمة السر الى ماكرو الحماية

[omar elhosseini]

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

لدى ورقة اكسل بها ماكرو لعمل حماية للورقة

واخر لفك الحماية

وهما كالاتى :

الاول هو-

Sub Protect_on()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _

:=True

End Sub

والثانى -

Sub Protect_off()

ActiveSheet.Unprotect

End Sub

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

ولى طلب اخر هو كيف يمكن حماية ورقة بها حاولى 25 ماكرو من ان يطلع عليها غير مصصم الورقة

ولكم جزيل الشكر

[هادى محمد المامون سالم]

اخى الكريم :

لحمايه الماكرو

Tools

VBproject Properties

Protection

ادخل كلمه السؤ التى تريدها

السلام عليكم

[هادى محمد المامون سالم]

اقصد ادخل كلمه السر التى تريدها

[omar elhosseini]

شكرا لك الاخ الكريك hs889

شكرا لك اخى تم فعلا حماية اكواد الماكرو من التعديل عليها

وكان هذا الجزء الثانى من السؤال

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

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

والسؤال مره اخرى هو :

لدى ورقة اكسل بها ماكرو لعمل حماية للورقة

واخر لفك الحماية

وهما كالاتى :

الاول هو-

Sub Protect_on()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _

:=True

End Sub

والثانى -

Sub Protect_off()

ActiveSheet.Unprotect

End Sub

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

ولكم جزيل الشكر

[halwim]

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

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

أرجو التركيز / بعدفتح الملف قم بكتابة أي شيء في العمودين A و C إلى مدى السطر 20

سوف تلاحظ خروج صندوق معنون بـ " إلغاء تأمين النطاق " يطالبك بوضع كلمة المرور .

وكلمة المرور السرية هي 123

المطلوب / شرح كيف تم عمل هذا النوع من الحماية بحيث يخرج هذا الصندوق الرائع لكي نكتب فيه كلمة السر ؟؟

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

PASSWORD_privacy.rar

[halwim]

لازلت في انتظار شرح طريقة عمل إلغاء الحماية من خلال خروج رسالة فيها مكان لكتابة الرقم السري كما في الملف المرفق حسب البيان في مشاركتي أعلاه ^^^^^^^

[halwim]

للرفع

[omar elhosseini]

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

الاخ halwim

بعد التحية

يمكنك عمل ذلك قبل ان تعمل حماية الورقة

من قائمة ادوات

ثم حماية

ثم السماح للمستخدمين بتحرير النطاقات

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

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

ثم فى النهاية عمل حماية للورقة

تحياتى

[halwim]

السلام عليكم

الأخ تامر شكرا لك شكرا لمرورك ... قد جربت الطريقة التي ذكرت ونجحت....

نجحت 100%

شكرا لردك الوافي .