اسعد الله ايامكم
الكود المطلوب التعديل علية تعلمته من الاستاذ صاحب قناة اليوتيوب ( تعلم الاكسل معي ) جزاه الله خير
وهو يعمل على ( حماية او فتح الحماية لجميع الشيتات عن طريق اختصارات )
المطلوب :
اضافة لو تكرمتم على كود الحماية لجميع الشيتات
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