قيس111 قام بنشر يناير 17, 2019 قام بنشر يناير 17, 2019 عندي ملف أكسل احتاج مساعدتكم فيه يوجد فيه كود يحمي الصفحه من التعديل الرقم السري للتعديل 1400 المطلوب شرحته بداخل الملف وهو كالأتي احتاج المساعده في حفظ الصفحه ولكن احتاج الكتابه فيها والاستطاعه الاختيار من القوائم المنسدله فيها مع حماية البيانات السابقه ارجو من الله ثم منك مساعدتي Book1.xlsm
Ali Mohamed Ali قام بنشر يناير 17, 2019 قام بنشر يناير 17, 2019 تفضل لك ما طلبت ولا يمكنك تغيير اى بيانات تم ادخالها سابقا وكلمة السر : 1400 حماية بعد الإدخال مباشرة.xlsm
قيس111 قام بنشر يناير 20, 2019 الكاتب قام بنشر يناير 20, 2019 شاكر مجهودك أخي العزيز أستطيع التعديل على الملف بالضغط على Ctrl في مساحه فاضيه وأختار ما اريد تغيير ويتم تغييره أريد حمايه أقوى . أرجوكم مساعدتي للضروره .
مهند محسن قام بنشر فبراير 4, 2019 قام بنشر فبراير 4, 2019 لا يمكن عمل اكثر مما قدمه الأستاذ على بارك الله فيه وفيك وفى كل من يقدم ويساعد الأخرين
قيس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
قيس111 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 الرجاء من الخبراء الله يوفقكم عدلولي بالكود على حسب الطلب .
مستخدم الاوفس قام بنشر فبراير 11, 2019 قام بنشر فبراير 11, 2019 (معدل) اعتذر ليس لديه خبرة كافية تم تعديل فبراير 11, 2019 بواسطه مستخدم الاوفس
قيس111 قام بنشر فبراير 11, 2019 الكاتب قام بنشر فبراير 11, 2019 الرجاء من الاخوه النظر في طلبي والمساعده ضروري
قيس111 قام بنشر فبراير 12, 2019 الكاتب قام بنشر فبراير 12, 2019 الرجاء من الاخوه النظر في طلبي والمساعده ضروري للرفع
قيس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
قيس111 قام بنشر فبراير 17, 2019 الكاتب قام بنشر فبراير 17, 2019 السلام عليكم أخوتي في منتدى أوفيسنا . لم أعهد هذا التجاهل منكم أيها الخبراء . لا ننسى اننا يجب ان نقف مع بعضنا البعض ومن يستطيع المساعده فيساعد . أريد أحد الخبراء أو مشرف القسم أو مدير المنتدى أن يساعدني أو يجيبني بلا نستطيع او لا نريد مساعدتك...؟؟؟؟ . شاكر كل من مر وأجابني بمساعده أو أخبرني بعدم أستطاعته . سأنتظر وأتمنى أن لا يخيب ظني بكم
أحمد يوسف قام بنشر فبراير 17, 2019 قام بنشر فبراير 17, 2019 وعليكم السلام اخى الكريم لا يمكن تقديم حلول اكثر مما قدم لك من قبل الأساتذة فما تطلبه لا يمكن عمله وتنفيذه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.