تعديل كود الحماية بشرط أستثناء مدى معين من عدم التحديد

[أبو أنس حاجب]

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

أساتذتي الأفاضل حفظكم الله

كما هو معلوم الكود أسفل يقوم بالحماية لكامل الورقة وبشرط أيضاً عدم تحديد الخلايا المحمية

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowSorting:=True, AllowFiltering:=True

ActiveSheet.EnableSelection = xlUnlockedCells

المطلوب أستثناء مدى محدد أثناء الحماية مع أمكانية تحديد الخلايا وليكن [z2:z5000]

حاولت توضيف الكود أسفل ولم أفلح أرجو التوجيه

z2:z5000] = xlNoRestrictions]

والله خير موفق

أبو أنس

[أبو حنــــين]

جرب الطريقة التالية :

ـ 1 تقوم بتحديد كل خلايا الورقة و تؤشر على كلمة مؤمنة من ( تنسيق خلايا ثم حماية )

ـ 2 تذهب الى الخلايا التي التي تريد استثنائها مثلا كما ذكرت z2 : z5000 و تقوم بتحديدها ثم تنسيق ثم تمسح علامة صح عن كلمة مؤمنة

ـ 3 تطبيق الكود الذي اكتته في مشاركتك

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowSorting:=True, AllowFiltering:=True

ActiveSheet.EnableSelection = xlUnlockedCells

و الله اعلم

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا حنين حفظكم الله

جزاك الله كل خير على دوام التفاعل والسرعة في الرد في هذا المنتدى المبارك.

ماقصدته سيدي أن المدى المذكور يشمل بالحماية أيضاً مع أستثناء واحد هو امكانية تحديد خلاياه عن سواءه (أي أن باقي الخلايا المحمية لايمكن تحديدها).

والله الموفق

أبو أنس

[أبو أنس حاجب]

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

للرفع

[أبو أنس حاجب]

  في 24‏/8‏/2012 at 02:09, أبو أنس حاجب said:

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

للرفع