حماية ملف

[رعد داود]

يسم الله الرحمن الرحيم

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

الاساتذة الافاضل

عملت حماية على بعض الخلايا من نموذج وعند الترحيل كود مسح الخلايا

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

وكذلك عند عمل اخفاء للاوراق الكود المرتيط بترحيل للاوراق لايعمل

ماهو الحل من فضلكم

[ابوالزوز]

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

أخي الكريم RAAD ضع الكود التالي في الحدث Workbook_Open لحماية كافة الأوراق دفعة واحدة ولا يؤثر ذلك على عمل الماكرو الموجود إلا في حالة sort

(للعلم هذا الكود أخذته من إحدى مشاركات الأستاذالعزيز أبو تامر)

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

أو أرسل ملفك في حال صعوبة التطبيق

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

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