حماية جميع الأوراق في الأكسيل بواسطة قورم

[أبوســـارة1973]

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

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

أرفقت ملف وأنشأت فيه زر ماكرو وعند الضغط عليه يظهر فورم الحماية

ويتكون من عدد 2 تكست بوكس الأول لكتابة رمز الحماية والثاني لتأكيد

الرقم .

وزر ماكرو آخر لفك الحماية وعند الضغط عليه يظهر فورم آخر ويتكون

من عدد 1 تكست بوكس رمز الحماية ، وفي حالة عدم التطابق مع الرمز

الذي أدخل مسبقاً يظهر مسج " لقد أدخلت رمزا غير صالح " وعند الضغط

على OK يعيد محاولة الإدخال بفرصتين فقط وفي حال عدم النجاح يغلق

الملف ، وعند الضغط على CANCEL يغلق الملف مباشرة .

ولكن أرجو ممن يتكرم علي بالمطلوب أن يضع في حسابه أن زر الماكرو

الثاني ( فك الحماية ) يكون في حالة إخفاء ويظهر فقط عند تفعيل زر

الماكرو الأول ( حماية ملف ) .

وكذلك زر الماكرو الأول يكون في حالة إخفاء عند تفعيل الزر الثاني .

الملف المرفق يوضح المطلوب .

حماية مصنف.rar

[ولدطيبة]

السلام عليكم

آمل تجربة المرفق و اخباري بالنتيجة

حيث انني لم اجربة

حماية_مصنف.rar

[mostafaatiya]

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

[أبوعبد الله]

أخي العزيز / أبو ساره

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

تقبل تحياتي

حماية مصنف.xls - 228 Kb

أبو عبدالله

[أبوســـارة1973]

أحسنت يا أبا عبدالله

أسأل الله لك السعادة والهناء في الدنيا والجنة والأمان في الأخرة

أما بخصوص إنجازك المبهر فإعجابي به كبير جدا

ولكن اسمح لي أن أقترح تنقيذ طلبي بخصوص إخفاء أو إظهار أزرار الماكرو

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

أو أقترح أن تظهر رسالة ( مسج ) للمستخدم في هذه الحالة ( " لم تقم بحماية المصنف بعد" )

أو في حالة الضغط على زر الحماية في الوقت الذي نفذت فيه الحماية ( " تمت حماية الملف مسبقا " )

ملاحظة أخرى :

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

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

تم تعديل يوليو 21, 2010 بواسطه abusarah73

[أبوســـارة1973]

أخي الفاضل / ولد طيبة

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

جربت الملف ولكن يوجد به خطأ في الكود ، وبالنتيجة فإن أزرار الماكرو لا تعمل .

ألف شكر لك على اهتمامك وأدعو لك بمثل ما دعوت لأخي أبي عبدالله

[احمدزمان]

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

استاذي ابو عبدالله

= = = =

ولد طيبة

أنا جربت الكود و شغال 100×100

اخي ابوسارة

انا جربت الأكواد وشغاله

ولا اعلم اين الخطأ الذي تتحدث عنه في كود ابوعبدالله

او ولدطيبة

[amir501]

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

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

أرفقت ملف وأنشأت فيه زر ماكرو وعند الضغط عليه يظهر فورم الحماية

ويتكون من عدد 2 تكست بوكس الأول لكتابة رمز الحماية والثاني لتأكيد

الرقم .

وزر ماكرو آخر لفك الحماية وعند الضغط عليه يظهر فورم آخر ويتكون

من عدد 1 تكست بوكس رمز الحماية ، وفي حالة عدم التطابق مع الرمز

الذي أدخل مسبقاً يظهر مسج " لقد أدخلت رمزا غير صالح " وعند الضغط

على OK يعيد محاولة الإدخال بفرصتين فقط وفي حال عدم النجاح يغلق

الملف ، وعند الضغط على CANCEL يغلق الملف مباشرة .

ولكن أرجو ممن يتكرم علي بالمطلوب أن يضع في حسابه أن زر الماكرو

الثاني ( فك الحماية ) يكون في حالة إخفاء ويظهر فقط عند تفعيل زر

الماكرو الأول ( حماية ملف ) .

وكذلك زر الماكرو الأول يكون في حالة إخفاء عند تفعيل الزر الثاني .

الملف المرفق يوضح المطلوب .

كما يمكن حماية الملف باكمله بفورم (هذا العمل هو لاحد اخواننا جزاه الله كل خير انا فقط انقله)

كلمة المرورو 358204.rar

[أبوعبد الله]

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

أشكرك من كل قلبي على مرورك الكريم ولك مني التحية والسلام .

أخي العزيز / أبو سارة

تم عمل اللازم بالمرفق إن نجحت عملية الإرفاق أو بالرابط .

مع تحياتي

أبو عبدالله

حماية مصنف-3.rar - 102 Kb

[الحسامي]

السلام عليكم

ما شاء الله عليك يا عم الحج " ابو عبد الله "

كم اسرني رؤية أسمك اليوم

لا حرمنا الله منك ومن اعمالك

طالت غيبتك عسى الله ان ييسر امورك

وتتحفنا باستمرار

اخوك عماد الحسامي

[هشام شلبى]

السلام عليكم

===========

ماشاء الله اخى الحبيب هشام "ابو عبدالله" لا حرمنا الله من جواهرك

[أبوعبد الله]

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

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

تقبل تحياتي وتقديري

أخي الحبيب / هشام

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

مع كل الأمنيات بالتوفيق .

أخوكم ومحبكم أبو عبدالله

[saad abed]

ابوعبدالله وحشتننا ووحشتنا ردودك الجميله

اتمنى من الله العلى القدير ان ييسر امورك الدنيوية

ويرزقك الجنة بالاخرة

امين اخوك فى الله

سعد عابد

تم تعديل يوليو 21, 2010 بواسطه سعد عابد

[عادل حنفي]

السلام عليكم

اخي الحبيب ابو عبد الله

لا حرمنا الله منك ولا من اعمالك

خالص تحياتي و تقديري

[اوفيس 2003]

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

[أبوعبد الله]

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

جزاك الله كل خير على مرورك الكريم وكلماتك الجميلة ودعواتك الرائعة ولك بمثلها وأكثر .

تقبل تحياتي

أخي الحبيب / عادل حنفي

بارك الله فيك أخي الحبيب وجزاك عني خير الجزاء وأسأل الله أن تكون دائماً بكل خير وجميع من تحب .

مع حبي وتقديري

أخي العزيز / office 2003

أشكرك جزيل الشكر على مرورك الكريم .

أبو عبدالله

[أبوســـارة1973]

أنا ممتن لك كل الامتنان أخي أبا عبدالله

أغلب المواضيع التي أطلب فيه المساعدة تكون أنت من بتصدى لها ويحل المشكل فيها بجدارة

وفقك الله أخي ودعائي لك هذه المرة :

( اللهم لا تدع له ذنبا إلا غفرته ولا هما إلا كشقته ولا عيبا إلا سترته لا رزقا إلا بسطته

ولا حاجة هي لك رضا وله قيها صلاح إلا أعطيته )

أخوك أبو سارة

[Ahmed Mohamed Eg]

ممكن كود لحماية جميع الأوراق أو الشيتات أوتوماتيك في كل مره يتم فتح الملف فيها

[ياسر خليل أبو البراء]

أخي الكريم احمد

أهلاً ومرحباً بك في المنتدى ونورت بين إخوانك

 

تفضل الكود يوضع في حدث المصنف ويقوم بحماية جميع الأوراق بكلمة السر 1

اضغط Alt + F11 للدخول إلى محرر الأكواد ثم انقر دبل كليك في نافذة المشروع على ThisWorkbook ثم ضع الكود التالي .. احفظ الملف بصيغة Xlsm (لمزيد من التفاصيل يرجى الإطلاع على رابط موضوع بداية الطريق لانقاذ الغريق من هنا)

تفضل

Private Sub Workbook_Open()
    Dim WS As Worksheet
    For Each WS In ThisWorkbook.Sheets
        WS.Protect 1
    Next WS
End Sub

تقبل تحياتي

[مصطفى كمال متولى]

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

[ياسر خليل أبو البراء]

وجزيت بمثله أخي الكريم مصطفى كمال

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

اخى واستاذى ياسر

ايه الجمال والحلاوه دى ياراجل

بصراحه

دائما ما نستمتع حينما نتابع اعمالك

بارك الله فيك

تقبل تحياتى