مشكلة في ازرار طباعة عند حماية اوراق العمل !!

[حمادة عمر]

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

الاساتذة الكرام

لدي ملف ارفقت صورة مصغرة منه بها المطلوب

و هو انه ملف اكسيل به عدد 4 شيت الاول به ازرار لطباعة صفحات معينة في الشيتات الاخري الثلاثة الموجودة في الملف

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

وايضا هذه الصفحات محمية وكذلك ازرار اخفاء و اظهار المشار اليهم في الملف مع العلم بأنهم

يعملو في حالة عدم حماية هذه الورقة بكفاءة اما عند حمايتهم لا تعمل الاكواد وتظهر رسالة الخطأ

كود فك حماية جميع الاوراق هو الرقم 1

boooook.rar

[الـعيدروس]

السلام عليكم

اتبع شرح الكود

ونسخ الأسطر الموضحه في الكود للأكواد الأخرى

وإن شاء الله سوف تعمل

Sub Excel4us2()

'************************

' إلغاء الحماية للورقة النشطه

ActiveSheet.Unprotect "1"

'************************

On Error Resume Next

Cells.EntireRow.Hidden = False

    Sheets("2").PageSetup.PrintArea = "A1:O132"

    Sheets("2").PrintOut copies:=2

'************************

' حماية الورقة بعد تنفيذ الكود

ActiveSheet.Protect "1"

'************************

End Sub

[ضاحي الغريب]

أخي الكريم

بالأضافة الي ما قدمه لك أخي ومعلمي أ. عباد أبو نصار ..... وبعد أذنه

بفرض ان باسورد الحماية علي الورقة "123" قم بوضع هذا السطر في بداية كود الطباعة

ActiveSheet.Unprotect Password:="123"

[code][/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]في نهاية الكود ضع ذلك السطر لارجاع حماية الورقة كما كانت[/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5][code]

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True[/size][/font][/color]

[code][/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]وانت كنت تريد اذافة الغاء وارجاع احماية قبل باسم الورقة فرضا ان الورقة اسمها ورقة 1 وحماية الورقة 123 ضع ذلك في بداية الكود[/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5][code]

ورقة1.Unprotect Password:="123"[/size][/font][/color]

[code][/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]وفي نهاية الكود [/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5][code]

ورقة1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True[/size][/font][/color]

[code][/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]وان شاء الله تظبط [/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]وراجع المرفقات تم عمل المطلوب علي ملفك[/size][/font][/color]

[color=#696969][font=times new roman', times, serif][size=5]وتقبل تحياتي[/size][/font][/color]

boooook.rar

[حمادة عمر]

السلام عليكم

الاستاذ والمعلم أ. عباد أبو نصار والاخ الكريم ضاحي

الف مليون شكر فالاكواد تعمل بكفاءة وكود الاستاذ عباد رااائع ففكرنه بسيطة ولكن كبيرة جداً و طريقة الاستاذ ضاحي جميلة ورائعة

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