هل يمكن حماية خلية حسب كلمة فى خلية مقابلة لها

[عادل جلال]

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

الأخوة الأفاضل

بارك الله فيكم

مطلوب معادلة أوكود

يسمح بالكتابة فى خلايا العمود ( B ) إذا كانت الخلية المقابلة لها فى العمود (E ) تساوى كلمة (عادل)

ولايسمح بالكتابة فى خلايا العمود ( B ) إذا كانت الخلية المقابلة لها فى العمود (E ) لا تساوى كلمة (عادل)

و يسمح بالكتابة فى خلايا العمود ( C ) إذا كانت الخلية المقابلة لها فى العمود (E ) تساوى كلمة (محمد)

ولايسمح بالكتابة فى خلايا العمود ( C ) إذا كانت الخلية المقابلة لها فى العمود (E ) لا تساوى كلمة (محمد)

مرفق ملف

Book.rar

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

السلام عليكم

على عجاله

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Myt As Range
Set Myt = Target
If Target.Column = 2 Then
If Target.Offset(0, 3) <> "ÚÇÏá" Then
MsgBox "ããäæÚ áÇäå ÛíÑ ÚÇÏá", vbCritical, "ããäæÚ"
Myt.Select
End If
ElseIf Target.Column = 3 Then
If Target.Offset(0, 2) <> "ãÍãÏ" Then
MsgBox "ããäæÚ áÇäå ÛíÑ ãÍãÏ", vbCritical, "ããäæÚ"
Myt.Select
End If
End If
End Sub

تصبح على خير

test_it.rar

[خالد القدس]

السلام عليكم

دى حالتها على عجالة (( مع الطلاسم الكتيرة ده ))

زادك الله من فضله أستاذي الأكرم أبو أسامة

مساءك الله بألف خير وعافية

تم تعديل يوليو 10, 2009 بواسطه خالد القدس

[m_127899]

أستاذي الفاضل أبو أسامة جزاك الله كل خير

[عادل جلال]

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

الأخ / أبو أسامة بارك الله فيك

دائماَ مبدع

لى طلب أخر

أتمنى عدم الكتابة فى الخلية أو مسح ماكتب فى الخلية

[عادل جلال]

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

الأخ / أبو أسامة بارك الله فيك

دائماَ مبدع

لى طلب أخر

معذرة المفروض كان من البداية

لو أردت زيادة (10 أعمدة يسار العمودb الأصفر ) وزيادة ( 9 أعمدة يسار العمودc الأخضر ) أى نصل إلى العمود v

والعمل بنفس الخواص السابقة

معذرة مرة أخرى

مرفق التوضيح

test_it.rar

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

السلام عليكم

استخدم هذا الكود (تجربه فقط) مع عادل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 2 Or Target.Column > 12 And Range("x" & Target.Row) = "ÚÇÏá" Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub

[عادل جلال]

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

الأخ / أبو أسامة بارك الله فيك

دائماَ مبدع

التجربة ممتازة

وعلى بركة الله أكمل

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

السلام عليكم

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect
'--------------------------------------------------------------
If Target.Column < 13 And Range("x" & Target.Row) = "عادل" Then
ActiveSheet.Unprotect
End If
'---------------------------------------------------------------
If Target.Column > 12 And Range("x" & Target.Row) = "محمد" Then
ActiveSheet.Unprotect
End If
End Sub

test_it3.rar

[قصي]

شكرا للاستاذ ابو سمة

والستاذ عادل

اذا كنت تمتهن التدريس هل يمكن ان تمدنا ببرنامج تستعمله للكنترول شيت وشكرا

حلاوة الترقية

[عادل جلال]

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

الأخ / أبو أسامة بارك الله فيك

وجعله الله فى ميزان حسناتك

[قصي]

شكرا للاستاذ ابو سمة

والستاذ عادل

اذا كنت تمتهن التدريس هل يمكن ان تمدنا ببرنامج تستعمله للكنترول شيت وشكرا

حلاوة الترقية

لماذا لم ترد يا استاذ عادل ؟

حلاوة الترقيه

[قصي]

للرفع

للاستاذ عادل المرقى حديثا

المفروض يرد على التساؤل

لعل المانع خير

[قصي]

للرفع