أرغب فى تعديل كود حماية اوراق العمل

[الصقر الحر]

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

أرغب فى تعديل هذا الكود ليقوم بحماية ورقه العمل بشرط عدم أمكانية تحديد الخلايا المؤمنة

Sub pro_sheet()
Dim a As Worksheet

For Each a In Worksheets
    If a.ProtectScenarios = False Then
        a.Protect "aaaa"
    End If
Next a
End Sub

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

أخي الكريم هاني

يرجى وضع الأكواد بين أقواس الكود ليظهر بشكل منضبط

جرب الكود التالي عله يفي بالغرض .. قبل تنفيذ الكود حدد الخلايا المراد حمايتها ثم كليك يمين ثم Format Cells ثم انتقل للتبويب Protection ثم علم علامة صح بحوار الخيار Locked

Sub Protect_All_Sheets()
    Dim Sh As Worksheet

    For Each Sh In Worksheets
        If Sh.ProtectScenarios = False Then
            Sh.Protect "aaaa"
            Sh.EnableSelection = xlUnlockedCells
        End If
    Next Sh
End Sub

تقبل تحياتي

[الصقر الحر]

الأخ الفاضل والأستاذ الجليل / ياسر خليل

سلمت يداك .. الف شكر

هذا هو ما أريده

تقبل تحياتى

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

سلمت من كل سوء أخي الكريم هاني

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

تقبل وافر تقديري واحترامي

[احمدزمان]

اخي ابو البراء

جزاك الله خيرا

اليوم تعلمت منك

ProtectScenarios

 

و استفدت منها

 

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

وجزيت خيراً معلمي بمثل ما دعوت لي .. ويبقى لك الفضل بعد الله عزوجل في أني أحببت هذا المجال

تقبل وافر تقديري واحترامي