كود الحماية خلية اوعمود

[زاكي بوشلاغم]

ممكن  كود حماية الخلية  او  العمود  حيث  عند حماية  الخلية  يسمح  لنا  بتعديل  على  الورقة وتغيير  في  الورقة  من  طول  وعرض   وشكل  كما  يتجاهل الخلية  المحمية  اي  عند  مرور على  الخلية  المحمية  لا  يمر   وشكرا  قد  جربت  حماية  الخلية   لكن  لايسمع  بتعديل  الورقة  حتى تنزع  حماية  الخلية  ممكن  كود الحماية  يتجاهل  الخلية او  العمود المحمي  ويسمح  بتغيير  على  الورقة  من  طول  وشكل  الخلايا  كما  اشاء

تم تعديل سبتمبر 28, 2013 بواسطه زاكي بوشلاغم

[حمادة عمر]

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

شاهد المرفق وشاهد حماية الخلايا الصفراء فيه

فهمي خلايا محمية ولايمكنك الوقوف عليها او التعديل فيها وعند الضغط علي انتر

يترك الخلية ويتجه للخليه بعدها ....

شاهد المرفق .... واخبرني هل هذا ما تريده ام لا ....

جزاك الله خيرا

 

 

حماية خلية وعدم الوقوف عليها.rar

[زاكي بوشلاغم]

اخي  انا  لا ابحث  عن  هذا  لا يمكنك تغيير  في  طول  وعرض  الخلية  المحمية   انا  اريد  ان  لا  اقف على  الخلية  المحمية ويسمح  لي  بتغيير  طول  وعرض  الخلية  المحمية

تم تعديل سبتمبر 28, 2013 بواسطه زاكي بوشلاغم

[حمادة عمر]

هل تقصد هكذا

 

حماية خلية معينة من التعديل-sama.rar

[زاكي بوشلاغم]

نعم  يا اخي 

لكن لاتمر على  الخلية  المحمية  اتمنى ان  تفهمني   احمي  خلية  معينة  او  عمود  معين  حيث  لايمكنني  ان  امر  على  الخلية او  العمود  المحمي لكن  يمكنني  تغيير  في  طول  او  عرض  الخلية المحمية    ولا يكمن  تغيير  في  كتابة  داخل  الخلية

[زاكي بوشلاغم]

ممكن الرد

[الـعيدروس]

بعد اذن الاستاذ حماده

حسب فهمي لطلبك تريد حماية عمود بالكامل او خلية معينه

الحماية عبارة عن : عدم الوقوف على الخليه او العمود 

ولكن تستطيع تغير حجم العمود او الصف للخلايا المحميه

 

جرب المرفق

حاول توقف المؤشر على الخلايا الملونه 

حماية عمود او خلية.rar

[زاكي بوشلاغم]

شكرا  وبارك  الله  فيك

 لكن  كيف  احمي  عدة  اعمدة  وعدة خلايا في  نفس  الورقة

[الـعيدروس]

هكذا

Set Rng = Range("A1,B1,C1,D1,F1,C:C,D:D") ' إذا عمود تكتب A:A إذا خلية تكتب A1

وهذا الكود

Dim Rng As Range
Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range)
Set Rng = Range("A1,B1,C:C,D:D")
If Not Intersect(Tr, Rng) Is Nothing Then
   Tr.Offset(0, 1).Select
   Set Rng = Nothing
End If
End Sub

[زاكي بوشلاغم]

شكرا  وجزاك الله خيرا