استخدام الاوتلين والصفحة محمية

[ابو الحمز]

السلام عليكم

الاخوة الكرام

عندي صفحة sheet وهي محمية واحب ان ابقيها محمية ، تعلمت من خيارات الحماية انني بامكاني ان اضع الاوتو فلتر واشياء كثيرة حسب الرغبة ولكن :

مشكلتي انني عند حماية الصفحة لا اتمكن من استخدام خاصية الاوتولين outline

فهذه الخاصية لا تعمل عندما تكون الصفحة محمية

المشكلة انني اريد ابقاء الحماية على الصفحة ولكن بنفس الوقت اريد خاصية الoutline ان تعمل ؟

فهل من مساعد بارك الله فيكم .

تم تعديل فبراير 12, 2007 بواسطه ابو الحمز

[ابو الحمز]

ولا رد

[ابو الحمز]

السلام عليكم

وجدت هذا الرد في احدالمنتديات الاجنبية ويقول صاحبه انها عملت معاه

ولكن هذا الكود فشل معي فهل من مساعد

Option Explicit

Sub auto_open()

Dim ws As Worksheet

For Each ws In Worksheets

With ws 'Worksheets("REPORT1")

.Protect Password:="test", UserInterfaceOnly:=True

.EnableOutlining = True

End With

Next ws

End Sub

[ابو الحمز]

السلام عليكم

يا جماعة ولا رد ، على الاقل رد واحد حتى اشعر ان هناك من يهتم باسألتي

[نزار سليمان عيد]

الاخ ابو الحمز

حسب آخر رد يتضح انك توصلت للحل على كل حال انظر المرفق

كلمة السر نزار

الرقم السري 1234

Password.rar

[ابو الحمز]

اخي الحبيب nse

بارك الله فيك على ردك وعلى تجاوبك ، لقد حملت الملف المرسل

ولكن لم ارى اي علاقة بين الملف وسؤالي المطروح

سؤالي هو كيف ابقي الصفحة محمية ولكن اترك خيار ال outline متاحا لمستعمل الصفحة ؟

فكما تعلم عند حماية الصفحة هناك خيارات عدة بامكانك اختيارها وترك مجال للمستخدم ان يعدل فيها ،ولكن لا يوجد من ضمن هذه الخيارات خيار استعمال ال outline ، وجدت الاجابة على السؤال في احد المنتديات ككود ، وحاولت بهذا الكود المرفق ولكنه لم يعمل معي ( قد يكون لقلة خبرتي في ال vba)

ارجو مراجعة الكود او ان كان هناك حلا اخر ، ارجو المساعدة

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

[ابو الحمز]

شكرا جزيلا

لقد عمل معي الكود الذي في الاعلى ولكن يبدو انني لم اغير اسم الصفحة في المحاولة الاولى

على كل شكرا جيرا للكل وخاصة الاخ nse

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

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

[omar elhosseini]

االاخ ابو الحمز

تحياتى

اتبع التعليمات الاتية بهذا الترتيب :

اخى الملف الخاص بك ازل الحماية منه تماما ثم احفظ الملف ثم اغلقه

اعد فتح الملف وتأكد من ازالة الحماية منه (يجب التأكد من هذه النقطة جيدا .... حتى يسرى الوضع الجديد على الملف)

اذا لم تلغى الحماية فى الخطوة السابقة اعد الخطوات من البداية

ادرج هذا الماكرو مع تغير رمز الحماية فى هذا الماكرو من (123) الى الباسوورد الخاصة بك

احفظ الملف ثم اغلقه

اعد فتح الملف

ثم اخبرنى بالنتيجة

Sub Auto_Open()
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.EnableOutlining = True
    MySheet.Protect _
        Password:=MyPassword, _
        DrawingObjects:=True, _
        contents:=True, _
        Scenarios:=True, _
        userInterfaceOnly:=True
Next MySheet
End Sub

مح تحياتى