السلام عليكم ورحمة الله وبركاته
أساتذتي الأفاضل حفظكم الله
كما هو معلوم الكود أسفل يقوم بالحماية لكامل الورقة وبشرط أيضاً عدم تحديد الخلايا المحمية
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
المطلوب أستثناء مدى محدد أثناء الحماية مع أمكانية تحديد الخلايا وليكن [z2:z5000]
حاولت توضيف الكود أسفل ولم أفلح أرجو التوجيه
z2:z5000] = xlNoRestrictions]
والله خير موفق
أبو أنس