الى اهل الخبررررة في الاكسل

[عصام2008]

عندي ملف فيه كثر من 35 شيت واريد عمل حماية لعدم التعديل في كل شيت في نفس نطاق الخلايا بمعنى انه اريد للمستخدم تحرير نطاق من B25:B6 , D25:D6 والخلية D36 , D35

[ابوالزوز]

أخي الكريم عصام ضع الكود التالي في الحدث Workbook_Open لحماية كافة الأوراق دفعة واحدة (للعلم هذا الكود أخذته من إحدى مشاركات الأستاذالعزيز أبو تامر)

لكن قبل ذلك قم بتعليم كل الخلايا التي تريد تحريرها في الورقة ثم إذهب إلى تنسيق - خلايا - حماية ثم قم بإزالة الإشارة من جانب كلمة مؤمنة ، والكود هو التالي:

For Each MySheet In ActiveWorkbook.Sheets
    MyPass = "123"
    MySheet.Protect _
        Password:=MyPass, _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True
Next MySheet

تقبل تحياتي ..

[عصام2008]

مشكوووووووور اخى العزيز Abuzzouz ويعطيك العافية ولكن هل هناك كود يختصر الوقت أكثر من هذا لان زي ماذكرت سابقا انا عندي الملف فيه أكثر من 35 شيييييت وجزاك الله عني خيراً

[ابوالزوز]

السلام عليكم ،،

أخي العزيز لا داعي للكود لتحديد الخلايا أو النطاق الذي تريد تحريره إنما يمكنك فقط تحديد كافة الأوراق دفعة واحدة ثم بعد ذلك تحدد النطاق المطلوب على ورقة واحدة فقط منها

وتقوم بإزالة إشارة مؤمنة فينطبق ذلك على كل الأوراق (طبعاً هذا إذا كان النطاق واحد في كل الأوراق) ثم تقوم بالحفظ وتخرج من الملف لتعود إليه من جديد وترى النتيجة

يمكنك إرسال الملف إذا أحببت

تقبل تحياتي ..

تم تعديل مايو 29, 2008 بواسطه abuzzouz

[عصام2008]

مشكوووووووور اخى العزيز Abuzzouz ويعطيك العافية والله يزيدك من علمه وفضله وجميع الأخوان انشاء الله وللتقدم دوماً