الغاء الحماية لبعض الاوراق بالكود

[احمد بن ابراهيم]

اسعد الله ايامكم

 

الكود المطلوب التعديل علية تعلمته من الاستاذ صاحب قناة اليوتيوب ( تعلم الاكسل معي ) جزاه الله خير

 

وهو يعمل على ( حماية او فتح الحماية  لجميع الشيتات عن طريق اختصارات )

 

المطلوب :

اضافة لو تكرمتم على كود الحماية لجميع الشيتات 

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

تم تعديل سبتمبر 7, 2016 بواسطه احمد بن ابراهيم

[ياسر خليل أبو البراء]

أخي الكريم أحمد

جربت الملف المرفق وكلا الكودين يعملان بشكل صحيح وتتم الحماية لجميع الأوراق بلا استثناء وعند فك الحماية يتم فك الحماية لجميع أوراق العمل بلا استثناء ..

حاول توضح المشكلة بالصور ، وهل يحدث معك خطأ من نوع معين كرسالة خطأ أو ما شابه؟

قرأت المشاركة مرة أخرى ولربما يكون هذا ما تقصده

Sub protectclose()
    Dim a As Worksheet
    For Each a In Worksheets
        If a.Name <> "ورقة1" And a.Name <> "ورقة2" And a.Name <> "ورقة3" Then
            If a.ProtectScenarios = False Then
                a.Protect "1111"
            End If
        End If
    Next a
End Sub

هذا كود الحماية لجميع الأوراق ما عدا أوراق العمل المحددة في سطر في الكود وهي ورقة1 ، ورقة2 ، ورقة3

 

[احمد بن ابراهيم]

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

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

[احمد بن ابراهيم]

الحمد الله 

تمت المهمة 

لكم جزيل الشكر ابو البراء  

تم تعديل سبتمبر 7, 2016 بواسطه احمد بن ابراهيم

[ياسر خليل أبو البراء]

أخي الكريم أحمد

فهمت من مشاركتك أنك ستقوم بتحديد أوراق عمل معينة باستخدام مفتاح Ctrl مثلاً لتحديد تلك الأوراق وعمل استثناء لها أي أنها لا تدخل في نطاق أوراق العمل المراد حمايتها .. مثال : نفترض أنك قمت بتحديد أوراق العمل (الرئيسية ، ورقة2 ، ورقة3 ، ورقة4) ،وتريد عمل حماية لأوراق العمل (ورقة1 ، ورقة5) ..أي تريد استثناء الأوراق المحددة من الحماية ..

جرب الكود التالي لعله يفي بهذا الغرض (إن كان هذا طلبك)

رابط الكود من هنا

[احمد بن ابراهيم]

الرابط لم يفتح معي

ولاكن الكود الاول قام بالعمل المطلوب و حسن ضنك في الصياغة و الاتقان.

يعجز الوصف في ما يجول في نفسي احتراما لكم و للقائمين على المنتدى

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

كتب الله اجركم و نفع الله بعلمكم

 

ودمتم بالصحة و العافية  

[ياسر خليل أبو البراء]

أخي الكريم أحمد جربت الرابط ويعمل بشكل صحيح ..اعمل كليك يمين على الرابط ثم Open in New Tab وانتظر 5 ثواني ثم انقر على Skip Ad في أعلى يمين الصفحة وستجد الكود بعدها إن شاء الله

عموماً الحمد لله أن تم المطلوب بخير والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي

[قلم-الاكسل(عبدالعزيز)]

شكرا على الموضوع والاجابة من المهندس ياسر