اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

الرقم .

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

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

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

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

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

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

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

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

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

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

حماية مصنف.rar

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

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

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

تقبل تحياتي

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

أبو عبدالله

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

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

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

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

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

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

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

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

ملاحظة أخرى :

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

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

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

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

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

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

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

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

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

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

= = = =

ولد طيبة

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

اخي ابوسارة

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

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

او ولدطيبة

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

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

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

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

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

الرقم .

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

مع تحياتي

أبو عبدالله

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

سعد عابد

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

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

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

تقبل تحياتي

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

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

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

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

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

أبو عبدالله

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

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

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

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

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

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

أخوك أبو سارة

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

  • 5 years later...

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

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

 

تفضل الكود يوضع في حدث المصنف ويقوم بحماية جميع الأوراق بكلمة السر 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

تقبل تحياتي

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

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

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

بصراحه

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

بارك الله فيك

تقبل تحياتى

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

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

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



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

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

Important Information