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

[basem said]

عندى ملف اكسل مكون من اكثر من 500 صفحة ومحتاج من سيادتكم حل لمشكله الحمايه للصفحات كله بشرط الحماية تحديد الخلايا الغير مؤمنه فقط

وماكرو لفتح الحمايه بعد عمل حمايه لهم الملف اكبر من 1000 كيو بيت لااستطيع رفعه

تم تعديل مايو 15, 2011 بواسطه باسم سعيد

[basem said]

انا زعلان انى ماعرفتش الموقع ده من زمان وبشكر كل الاساتذه الموجودين والمساعدين

اخوكم عضو جديد باسم

وجزاكم الله خير على مجهودتكم العظيمه

[magodey]

تفضل أخي الكريم

1.zip

[احمد فضيله]

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

الاستاذ / باسم سعيد

تفضل هذا المرفق و ارجو من الله أن يكون هذا طلبك

و الاكواد المستخدمة هي :

Dim ws As Worksheet

Sub Button1_Click()

For Each ws In Worksheets

ws.Protect

Next

End Sub

Sub Button2_Click()

For Each ws In Worksheets

ws.Unprotect

Next

End Sub

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

PROTECT HaNcOcK.rar

[basem said]

بشكر الاساتذه على الاهتمام وسرعة الرد

:clapping:

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

بس ما طولش عليكم الحمايه بتحديد الخلايا المؤمنة لو ممكن حمايه عدم تحديد الخلايا المومنه:signthankspin:

تم تعديل مايو 15, 2011 بواسطه باسم سعيد