أبوســـارة1973 قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 لأن المتاح في ملف الأكسيل هو حماية وقة عمل والمطلوب حماية جميع الأوراق أحتاج إلى كود يقوم بعمل حماية على جميع أوراق العمل في ملف أكسيل أرفقت ملف وأنشأت فيه زر ماكرو وعند الضغط عليه يظهر فورم الحماية ويتكون من عدد 2 تكست بوكس الأول لكتابة رمز الحماية والثاني لتأكيد الرقم . وزر ماكرو آخر لفك الحماية وعند الضغط عليه يظهر فورم آخر ويتكون من عدد 1 تكست بوكس رمز الحماية ، وفي حالة عدم التطابق مع الرمز الذي أدخل مسبقاً يظهر مسج " لقد أدخلت رمزا غير صالح " وعند الضغط على OK يعيد محاولة الإدخال بفرصتين فقط وفي حال عدم النجاح يغلق الملف ، وعند الضغط على CANCEL يغلق الملف مباشرة . ولكن أرجو ممن يتكرم علي بالمطلوب أن يضع في حسابه أن زر الماكرو الثاني ( فك الحماية ) يكون في حالة إخفاء ويظهر فقط عند تفعيل زر الماكرو الأول ( حماية ملف ) . وكذلك زر الماكرو الأول يكون في حالة إخفاء عند تفعيل الزر الثاني . الملف المرفق يوضح المطلوب . حماية مصنف.rar رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم آمل تجربة المرفق و اخباري بالنتيجة حيث انني لم اجربة حماية_مصنف.rar 1 رابط هذا التعليق شارك More sharing options...
mostafaatiya قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 جزاك الله خيرا اخي وليد علي متابعتك الجميلة رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 أخي العزيز / أبو ساره رجاء الاطلاع على المرفق ويمكن تنزيله من الرابط أسفل نظراً لوجود مشكلة في رفع الملفات بالمنتدى والملف به شرح العمل . تقبل تحياتي حماية مصنف.xls - 228 Kb أبو عبدالله رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) أحسنت يا أبا عبدالله أسأل الله لك السعادة والهناء في الدنيا والجنة والأمان في الأخرة أما بخصوص إنجازك المبهر فإعجابي به كبير جدا ولكن اسمح لي أن أقترح تنقيذ طلبي بخصوص إخفاء أو إظهار أزرار الماكرو وذلك بسبب ظهور رسالة خطأ في برمجة الكود في حالةالضغط على زر فك الحماية قبل تنفيذ الحماية أو أقترح أن تظهر رسالة ( مسج ) للمستخدم في هذه الحالة ( " لم تقم بحماية المصنف بعد" ) أو في حالة الضغط على زر الحماية في الوقت الذي نفذت فيه الحماية ( " تمت حماية الملف مسبقا " ) ملاحظة أخرى : في حالة عدم تطابق الرمز في خانة ( أعد كتابة الرمز ) مطلوب أن تظهر رسالة تفيد بذلك والسلام عليكم ورحمة الله وبركاته تم تعديل يوليو 21, 2010 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 أخي الفاضل / ولد طيبة السلام عليكم ورحمة الله جربت الملف ولكن يوجد به خطأ في الكود ، وبالنتيجة فإن أزرار الماكرو لا تعمل . ألف شكر لك على اهتمامك وأدعو لك بمثل ما دعوت لأخي أبي عبدالله رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 جزاك الله كل خير استاذي ابو عبدالله = = = = ولد طيبة أنا جربت الكود و شغال 100×100 اخي ابوسارة انا جربت الأكواد وشغاله ولا اعلم اين الخطأ الذي تتحدث عنه في كود ابوعبدالله او ولدطيبة رابط هذا التعليق شارك More sharing options...
amir501 قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 لأن المتاح في ملف الأكسيل هو حماية وقة عمل والمطلوب حماية جميع الأوراق أحتاج إلى كود يقوم بعمل حماية على جميع أوراق العمل في ملف أكسيل أرفقت ملف وأنشأت فيه زر ماكرو وعند الضغط عليه يظهر فورم الحماية ويتكون من عدد 2 تكست بوكس الأول لكتابة رمز الحماية والثاني لتأكيد الرقم . وزر ماكرو آخر لفك الحماية وعند الضغط عليه يظهر فورم آخر ويتكون من عدد 1 تكست بوكس رمز الحماية ، وفي حالة عدم التطابق مع الرمز الذي أدخل مسبقاً يظهر مسج " لقد أدخلت رمزا غير صالح " وعند الضغط على OK يعيد محاولة الإدخال بفرصتين فقط وفي حال عدم النجاح يغلق الملف ، وعند الضغط على CANCEL يغلق الملف مباشرة . ولكن أرجو ممن يتكرم علي بالمطلوب أن يضع في حسابه أن زر الماكرو الثاني ( فك الحماية ) يكون في حالة إخفاء ويظهر فقط عند تفعيل زر الماكرو الأول ( حماية ملف ) . وكذلك زر الماكرو الأول يكون في حالة إخفاء عند تفعيل الزر الثاني . الملف المرفق يوضح المطلوب . كما يمكن حماية الملف باكمله بفورم (هذا العمل هو لاحد اخواننا جزاه الله كل خير انا فقط انقله) كلمة المرورو 358204.rar رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 أخي الحبيب / أحمد يعقوب أشكرك من كل قلبي على مرورك الكريم ولك مني التحية والسلام . أخي العزيز / أبو سارة تم عمل اللازم بالمرفق إن نجحت عملية الإرفاق أو بالرابط . مع تحياتي أبو عبدالله حماية مصنف-3.rar - 102 Kb رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم ما شاء الله عليك يا عم الحج " ابو عبد الله " كم اسرني رؤية أسمك اليوم لا حرمنا الله منك ومن اعمالك طالت غيبتك عسى الله ان ييسر امورك وتتحفنا باستمرار اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم =========== ماشاء الله اخى الحبيب هشام "ابو عبدالله" لا حرمنا الله من جواهرك رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 أخي الحبيب / عماد أشكرك من كل قلبي على مرورك الكريم وكلماتك الرائعة وشعورك الجميل وهذا لأنك شخص جميل الخلق والطباع أطمئنك أنني بخير والحمد لله وما منعني عن بيتي الحبيب وأحبابي الكرام إلا ظروف العمل وضغوطه والبركة فيكم دائماً تقدمون كل مفيد وجديد. تقبل تحياتي وتقديري أخي الحبيب / هشام بارك الله فيك أخي الحبيب ويعلم الله ما أحمله لك من محبة وتقدير وأسأل الله لك التوفيق وأتمنى تكون ارتحت شوية من دوشة نهاية العام الدراسي . مع كل الأمنيات بالتوفيق . أخوكم ومحبكم أبو عبدالله رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 (معدل) ابوعبدالله وحشتننا ووحشتنا ردودك الجميله اتمنى من الله العلى القدير ان ييسر امورك الدنيوية ويرزقك الجنة بالاخرة امين اخوك فى الله سعد عابد تم تعديل يوليو 21, 2010 بواسطه سعد عابد رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم اخي الحبيب ابو عبد الله لا حرمنا الله منك ولا من اعمالك خالص تحياتي و تقديري رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 جزاكم الله كل خيــــــــر رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 22, 2010 مشاركة قام بنشر يوليو 22, 2010 أخي الحبيب / سعد عابد جزاك الله كل خير على مرورك الكريم وكلماتك الجميلة ودعواتك الرائعة ولك بمثلها وأكثر . تقبل تحياتي أخي الحبيب / عادل حنفي بارك الله فيك أخي الحبيب وجزاك عني خير الجزاء وأسأل الله أن تكون دائماً بكل خير وجميع من تحب . مع حبي وتقديري أخي العزيز / office 2003 أشكرك جزيل الشكر على مرورك الكريم . أبو عبدالله رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 22, 2010 الكاتب مشاركة قام بنشر يوليو 22, 2010 أنا ممتن لك كل الامتنان أخي أبا عبدالله أغلب المواضيع التي أطلب فيه المساعدة تكون أنت من بتصدى لها ويحل المشكل فيها بجدارة وفقك الله أخي ودعائي لك هذه المرة : ( اللهم لا تدع له ذنبا إلا غفرته ولا هما إلا كشقته ولا عيبا إلا سترته لا رزقا إلا بسطته ولا حاجة هي لك رضا وله قيها صلاح إلا أعطيته ) أخوك أبو سارة رابط هذا التعليق شارك More sharing options...
Ahmed Mohamed Eg قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 ممكن كود لحماية جميع الأوراق أو الشيتات أوتوماتيك في كل مره يتم فتح الملف فيها رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 أخي الكريم احمد أهلاً ومرحباً بك في المنتدى ونورت بين إخوانك تفضل الكود يوضع في حدث المصنف ويقوم بحماية جميع الأوراق بكلمة السر 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 تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 وجزيت بمثله أخي الكريم مصطفى كمال رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 اخى واستاذى ياسر ايه الجمال والحلاوه دى ياراجل بصراحه دائما ما نستمتع حينما نتابع اعمالك بارك الله فيك تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.