قيس111 قام بنشر يناير 17, 2019 مشاركة قام بنشر يناير 17, 2019 عندي ملف أكسل احتاج مساعدتكم فيه يوجد فيه كود يحمي الصفحه من التعديل الرقم السري للتعديل 1400 المطلوب شرحته بداخل الملف وهو كالأتي احتاج المساعده في حفظ الصفحه ولكن احتاج الكتابه فيها والاستطاعه الاختيار من القوائم المنسدله فيها مع حماية البيانات السابقه ارجو من الله ثم منك مساعدتي Book1.xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 17, 2019 مشاركة قام بنشر يناير 17, 2019 تفضل لك ما طلبت ولا يمكنك تغيير اى بيانات تم ادخالها سابقا وكلمة السر : 1400 حماية بعد الإدخال مباشرة.xlsm رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر يناير 20, 2019 الكاتب مشاركة قام بنشر يناير 20, 2019 شاكر مجهودك أخي العزيز أستطيع التعديل على الملف بالضغط على Ctrl في مساحه فاضيه وأختار ما اريد تغيير ويتم تغييره أريد حمايه أقوى . أرجوكم مساعدتي للضروره . رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر يناير 21, 2019 الكاتب مشاركة قام بنشر يناير 21, 2019 للرفع رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 21, 2019 مشاركة قام بنشر يناير 21, 2019 ليس هناك حماية مطلقة كما تتخيل رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر يناير 22, 2019 الكاتب مشاركة قام بنشر يناير 22, 2019 هل نستطيع ايقاف خدمات Ctrl مع التظليل رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 4, 2019 الكاتب مشاركة قام بنشر فبراير 4, 2019 للرفع رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 لا يمكن عمل اكثر مما قدمه الأستاذ على بارك الله فيه وفيك وفى كل من يقدم ويساعد الأخرين رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 5, 2019 الكاتب مشاركة قام بنشر فبراير 5, 2019 سأجد في جعبتهم الكثير. من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Don't Change" End If End Sub رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 6, 2019 الكاتب مشاركة قام بنشر فبراير 6, 2019 الرجاء من الخبراء الله يوفقكم عدلولي بالكود على حسب الطلب . رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 10, 2019 الكاتب مشاركة قام بنشر فبراير 10, 2019 للرفع رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 للرفع رابط هذا التعليق شارك More sharing options...
مستخدم الاوفس قام بنشر فبراير 11, 2019 مشاركة قام بنشر فبراير 11, 2019 (معدل) اعتذر ليس لديه خبرة كافية تم تعديل فبراير 11, 2019 بواسطه مستخدم الاوفس رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 الرجاء من الاخوه النظر في طلبي والمساعده ضروري رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 12, 2019 الكاتب مشاركة قام بنشر فبراير 12, 2019 الرجاء من الاخوه النظر في طلبي والمساعده ضروري للرفع رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 13, 2019 الكاتب مشاركة قام بنشر فبراير 13, 2019 للرفع من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Don't Change" End If Book1.xlsm رابط هذا التعليق شارك More sharing options...
قيس111 قام بنشر فبراير 17, 2019 الكاتب مشاركة قام بنشر فبراير 17, 2019 السلام عليكم أخوتي في منتدى أوفيسنا . لم أعهد هذا التجاهل منكم أيها الخبراء . لا ننسى اننا يجب ان نقف مع بعضنا البعض ومن يستطيع المساعده فيساعد . أريد أحد الخبراء أو مشرف القسم أو مدير المنتدى أن يساعدني أو يجيبني بلا نستطيع او لا نريد مساعدتك...؟؟؟؟ . شاكر كل من مر وأجابني بمساعده أو أخبرني بعدم أستطاعته . سأنتظر وأتمنى أن لا يخيب ظني بكم رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر فبراير 17, 2019 مشاركة قام بنشر فبراير 17, 2019 وعليكم السلام اخى الكريم لا يمكن تقديم حلول اكثر مما قدم لك من قبل الأساتذة فما تطلبه لا يمكن عمله وتنفيذه رابط هذا التعليق شارك 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.