اذا اخترنا من القائمة المنسدلة فان الحماية تلغى عن خلايا وتحمي خلايا اخرى

[skyblue]

السلام عليكم ورحمة الله وبركاته وبعد:

فبرجاء من اساتذتنا والاعضاء الافاضل التعديل على الكود في الملف المرفق لان الفكرة مفيدة جدا

تحياتي

Book1.rar

[skyblue]

up

[محمد يحياوي]

اخي ريثما يتم اصلاح وصلة رفع المرفقات فان الاخوة لن يتاخرو عليك

تم تعديل ديسمبر 23, 2009 بواسطه yahiaoui

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

أخي العزيز يحياوي

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

تحياتي

أبو عبدالله

تم تعديل ديسمبر 23, 2009 بواسطه إكسيلجي

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

أخي العزيز / skyblue

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

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$2" Then

Select Case Target.Value

Case Is = "احمد", "علي"

ActiveSheet.Unprotect

[d8] = "علوم"

[d9] = "فقه"

[d10] = "رياضيات"

[e8] = ""

[e9] = ""

[e10] = ""

Range("E8:E10").Locked = True

Range("D8:D10").Locked = False

Target.Locked = False

ActiveSheet.Protect

Case Is = "يوسف", "ناصر"

ActiveSheet.Unprotect

[e8] = "علوم"

[e9] = "فقه"

[e10] = "رياضيات"

[d8] = ""

[d9] = ""

[d10] = ""

Range("D8:D10").Locked = True

Range("E8:E10").Locked = False

Target.Locked = False

ActiveSheet.Protect

End Select

End If

End Sub

تحياتي

أبو عبدالله

[skyblue]

يشرفني مرورك وردك علي ياابو عبدالله الله يسعدك

وكيف امطار البارح ان شاء الله تكون امطار خير ويعم بنفعها الجميع

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

وهذه مشكلة في حد ذاتها . لذا اتمنى لو تكون الحماية فقط على المدى المطلوب وباقي الصفحة تكون غير محمية .

تحياتي لك

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

أخي العزيز / skyblue

أشكرك على اهتمامك وسؤالك والحمد لله المرة دي عدت على خير بخصوص موضوع المطر وقدرت أروح الشغل ومر اليوم على خيروالحمد لله ، أما عن التعديل الذي طلبته فستجده بالملف المرفق إن شاء الله .

تقبل تحياتي

أبو عبدالله

حماية نطاق بشرط.rar

[skyblue]

والله استاذ ياابو عبدالله فعلا الكبير كبير .

الله يحفظك انت وذريتك من كل شر .

خالص تقديري واحترامي لك