اسعد الله ايامكم
	 
	الكود المطلوب التعديل علية تعلمته من الاستاذ صاحب قناة اليوتيوب ( تعلم الاكسل معي ) جزاه الله خير
	 
	وهو يعمل على ( حماية او فتح الحماية  لجميع الشيتات عن طريق اختصارات )
	 
	المطلوب :
	اضافة لو تكرمتم على كود الحماية لجميع الشيتات 
	
Sub protectclose()
Dim a As Worksheet
For Each a In Worksheets
If a.ProtectScenarios = False Then
a.protect "1111"
End If
Next a
 
End Sub
	
		 
	 
	
		 
	 
	
		بمنع حماية بعض الشيتات المختارة ويحمي بقية الشيتات
	 
	
		 
	 
	
		 
	 
	
		ولكم جزيل الشكر
	 
	الغاء الحماية لبعض الاوراق.rar