حماية الخلايا التى بها معادلات من الحذف (مطلوبة)

[أيسم إبراهيم]

لدى برنامج على الاكسيل و سيعمل عليه أشخاص غير ذوى خبرة بالاكسيل

لذا أرجو من الاساتذة بالمنتدى الكريم شرح كيفية حماية الخلايا التى بها معادلات من الحذف بطريق الخطأ

ولكم الشكر الجزيل

[ابو اسامة العينبوسي]

السلام عليكم

savedata.rar

savedata.rar

تم تعديل مارس 19, 2008 بواسطه ابو اسامة العينبوسي

[safwatscc]

الاخ الفاضل

صيغة الملف غير معروفة

ارجو ارسالة مرة اخرى

وشكرا

[badico]

اخى الحبيب تم حمايه الخلايا التى بها معدلات ارجو ان يكون هذا هو طلبك

savedata.zip

[أبوعبد الله]

رجاء الاطلاع على المرفق

أبو عبدالله

PROTECT_FURMUL_CELLS_1.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخى الكريم ابو عبد الله

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 بواسطه ابو اسامة العينبوسي

[أبو محمد سلامة]

أخي أبو أسامة

شكراً على المعلومة ، ولكن مع الأسف الكود لا يعمل على هذا النحو ك WORKSHEET CODE ويمكن تجربة ذلك بنفسك .

أبو محمد

تم تعديل مارس 19, 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 بواسطه ابو اسامة العينبوسي

[أبو محمد سلامة]

أخي العزيز / أبو أسامة

أشكرك على اهتمامك وسرعة الرد ولكن لازال أخي الحماية لاتعمل مع الخلايا التي اكتب بها أي معادلة ولا حتى الورقة تحمى بعد كتابة أي معادلة بأي خلية ، لذا أرجو الإفادة عن سبب المشكلة جزاكم الله خيرا .

أخوكم أبو محمد

[ابو اسامة العينبوسي]

السلام عليكم

هذا مجرب من قبل احد الاخوه زياده في التاكد

هذا omarhajy@hotmail.com

اضفنى ان احببت

the_last_try.rar

[ابو اسامة العينبوسي]

السلام عليكم

ابو محمد سلامه المحترم

هل يعمل صح ؟

[أيسم إبراهيم]

شكراااااااااااااااا جزيلالالالالالالالالالالالالالالا

أستاذ أبو أسامه فأنت دائما وأبدا ما تسارع بتقديم العون و المساعدة لاخوانك

على فكره أنا من طرح السؤال فى بدء المشاركة لكنى لم ادخل لفترة فوجدتك مشرفنى بالاجابة وكذالك كل الاساتذة الذين شاركوا

كل الشكر