الشيباني1 قام بنشر مايو 22, 2019 قام بنشر مايو 22, 2019 اخواني الاعزاء تحية طيبه لحاجتي للكود المدرج ادناه لحماية المعادلات ارجو المساعده بترتيب زر للتفعيل وعدم التفعيل ان امكن مع الشكر الجزيل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveWorkbook.Names("aa").RefersToR1C1 <> "=4" Then Exit Sub If Target.HasFormula Then Application.DisplayFormulaBar = False ActiveSheet.Protect Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If ' Next End Sub
الشيباني1 قام بنشر مايو 23, 2019 الكاتب قام بنشر مايو 23, 2019 اخواني الاعزاء ارفق ملفا يتضمن مثالا يوضح ما اروم الوصول اليه مع الشكر مثال.rar
أبوعيد قام بنشر مايو 23, 2019 قام بنشر مايو 23, 2019 (معدل) السلام عليكم هذا اقتراح جرب المرفق مثال1.xlsm تم تعديل مايو 23, 2019 بواسطه أبوعيد 1
الشيباني1 قام بنشر مايو 25, 2019 الكاتب قام بنشر مايو 25, 2019 اخي العزيز مع تقديري ليس هذا ما اروم التوصل اليه ما ابغيه هو زرين احدهما يفعل الكود الذي يتضمنه الملف والثاني يلغي التفعيل مع الشكر 1
أفضل إجابة أبوعيد قام بنشر مايو 28, 2019 أفضل إجابة قام بنشر مايو 28, 2019 حسنا جرب المرفق مثال2.xlsm 1
الشيباني1 قام بنشر مايو 29, 2019 الكاتب قام بنشر مايو 29, 2019 اخي العزيز هذا ما كنت اصبو اليه مع شكري الجزيل 1
hicham2610 قام بنشر يوليو 19, 2019 قام بنشر يوليو 19, 2019 السلام عليكم من خلال تجربتي للملف الأخير لاحظت ظهور صيغة المعادلة رغم تفعيل الكود وهذه محاولتي عند تفعيل الكود لاتظهر صيغة المعادلة إن كان هذا هو المطلوب؟ أتواصل معكم لاحقا بحول الله بخصوص الطريقة HICHAM.xlsm
الشيباني1 قام بنشر يوليو 20, 2019 الكاتب قام بنشر يوليو 20, 2019 اخي العزيز مع شكري وتقديري ما كنت قد طلبته هو اخفاء شريط الصيغه عند الضغط على خلية فيها معادله وهو ما تحقق في الحل الاخير ويمكنكم تجربة ذلك مع تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.