أيسم إبراهيم قام بنشر مارس 18, 2008 مشاركة قام بنشر مارس 18, 2008 لدى برنامج على الاكسيل و سيعمل عليه أشخاص غير ذوى خبرة بالاكسيل لذا أرجو من الاساتذة بالمنتدى الكريم شرح كيفية حماية الخلايا التى بها معادلات من الحذف بطريق الخطأ ولكم الشكر الجزيل رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 18, 2008 مشاركة قام بنشر مارس 18, 2008 (معدل) السلام عليكم savedata.rar savedata.rar تم تعديل مارس 19, 2008 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر مارس 18, 2008 مشاركة قام بنشر مارس 18, 2008 الاخ الفاضل صيغة الملف غير معروفة ارجو ارسالة مرة اخرى وشكرا رابط هذا التعليق شارك More sharing options...
badico قام بنشر مارس 19, 2008 مشاركة قام بنشر مارس 19, 2008 اخى الحبيب تم حمايه الخلايا التى بها معدلات ارجو ان يكون هذا هو طلبك savedata.zip رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مارس 19, 2008 مشاركة قام بنشر مارس 19, 2008 رجاء الاطلاع على المرفق أبو عبدالله PROTECT_FURMUL_CELLS_1.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 19, 2008 مشاركة قام بنشر مارس 19, 2008 (معدل) السلام عليكم اخى الكريم ابو عبد الله Sub protect_formulas() Dim wks As Worksheet Dim wkbk As Workbook Dim cl As Range Set wkbk = ActiveWorkbook For Each wks In wkbk.Worksheets wks.Unprotect wks.Cells.Locked = False For Each cl In wks.UsedRange If cl.HasFormula Then cl.Locked = True End If Next cl wks.Protect Next wks End Sub ممكن اختصارالكود يالاتى Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wkbk As Workbook Set wkbk = ActiveWorkbook If Target.HasFormula Then wkbk.Protect Else wkbk.Unprotect End If End Sub تم تعديل مارس 19, 2008 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
أبو محمد سلامة قام بنشر مارس 19, 2008 مشاركة قام بنشر مارس 19, 2008 (معدل) أخي أبو أسامة شكراً على المعلومة ، ولكن مع الأسف الكود لا يعمل على هذا النحو ك WORKSHEET CODE ويمكن تجربة ذلك بنفسك . أبو محمد تم تعديل مارس 19, 2008 بواسطه أبو محمد سلامة رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 20, 2008 مشاركة قام بنشر مارس 20, 2008 (معدل) السلام عليكم شكرا سيدى الكريم على لفت النظر فعلا : كانت المتغيرات معرفه على انها workbook و ليس worksheet يبدو انه التبس على الحمايه من كود الاستاذ ابو عبد الله و الحمايه من الكود المختصر اليك الحل و هو مختصر المختصر Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.HasFormula Then Exit Sub If Target.HasFormula Then ActiveSheet.Protect End Sub what_about_this_one.rar تم تعديل مارس 20, 2008 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
أبو محمد سلامة قام بنشر مارس 20, 2008 مشاركة قام بنشر مارس 20, 2008 أخي العزيز / أبو أسامة أشكرك على اهتمامك وسرعة الرد ولكن لازال أخي الحماية لاتعمل مع الخلايا التي اكتب بها أي معادلة ولا حتى الورقة تحمى بعد كتابة أي معادلة بأي خلية ، لذا أرجو الإفادة عن سبب المشكلة جزاكم الله خيرا . أخوكم أبو محمد رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 20, 2008 مشاركة قام بنشر مارس 20, 2008 السلام عليكم هذا مجرب من قبل احد الاخوه زياده في التاكد هذا omarhajy@hotmail.com اضفنى ان احببت the_last_try.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 20, 2008 مشاركة قام بنشر مارس 20, 2008 السلام عليكم ابو محمد سلامه المحترم هل يعمل صح ؟ رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 21, 2008 الكاتب مشاركة قام بنشر مارس 21, 2008 شكراااااااااااااااا جزيلالالالالالالالالالالالالالالا أستاذ أبو أسامه فأنت دائما وأبدا ما تسارع بتقديم العون و المساعدة لاخوانك على فكره أنا من طرح السؤال فى بدء المشاركة لكنى لم ادخل لفترة فوجدتك مشرفنى بالاجابة وكذالك كل الاساتذة الذين شاركوا كل الشكر رابط هذا التعليق شارك 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.