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

[مصطفى محمود مصطفى]

السلام عليكم

الأساتذة الافاضل يوجد كود للطباعة يعمل بشكل جيد

( Sub الصف_كل()
Range("h1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveSheet.PageSetup.PrintArea = "$h$3:$O$36"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 2
ActiveWindow.SelectedSheets.PrintOut
Loop Until ActiveCell.Value >= Range("N1").Value
Range("a1").Select
End Sub)

لكن لما اضفت حماية الورقة اصبح يظهر الخطأ كما في الصورة

ولكن ليس دائما أحيانا واحيانا أخرى لما ازيل الخطأ

واضغط على زر الطباعة يطبع دون ظهور الخطأ كما في اول مرة

هل يوجد تعديل او إضافة على الحماية او على كود الطباعة

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

 

تم تعديل ديسمبر 1, 2015 بواسطه مصطفى محمود مصطفى

[ياسر خليل أبو البراء]

أخي الكريم

ارفق ملف للتوضيح

ويرجى ذكر النطاق myrange4 (النطاق المسمى)

غالباً ان الخلية النشطة التي تحاول التعامل معها ضمن خلايا النطاق المسمى المحمي

[ياسر العربى]

اذا الحمياية لابد منها

نريح دماغنا ونعمل كدا

حماية عادية بدون رمز حماية كدا

نحط في اول كود الطباعة
ActiveSheet.Unprotect
وفي نهاية الكود نضع دا
ActiveSheet.Protect

برمز نزود الرمز كدا

اول الكود
ActiveSheet.Unprotect "123"
اخر الكود
ActiveSheet.Protect "123"

غير كدا يبقي ترفق الملف عشان الامور تبقي واضحة

 

تم تعديل ديسمبر 1, 2015 بواسطه ياسر العربى

[ياسر خليل أبو البراء]

أخي الحبيب ياسر العربي

الحماية في الكود الموجود في الصورة ليست حماية ورقة العمل سواء بكلمة سر أو بدونها

إنما هي طريقة للحماية عن طريق وضع كود في حدث تغيير ورقة العمل في نطاق محدد من الخلايا (حماية الخلايا في النطاق من التعديل عليها ..بحيث لو تم التعديل عليها تظهر رسالة تفيد بأن النطاق محمي ويتم التراجع بالكود عن آخر تعديل تم على الخلية)

تقبل تحياتي

[مصطفى محمود مصطفى]

السلام عليكم

شكرا للأساتذة الكرام  وفقكم الله

اليكم الملف ومرفق فيه كود الحماية وكود الطباعة

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

 

 

كود الطباعة مع حماية الاوراق.rar

تم تعديل ديسمبر 1, 2015 بواسطه مصطفى محمود مصطفى

[ياسر خليل أبو البراء]

الموضوع بسيط إذاً

هتلغي الحماية عن طريق صندوق الاختيار بوضع القيمة True بحيث يلغي الحماية المرتبطة بالنطاق وفي آخر الكود ترجع الحماية بتغيير القيمة إلى False

Sub الصف_كل()
    [BK3].Value = "TRUE"
        Range("h1").Select
        ActiveCell.FormulaR1C1 = "1"
        ActiveSheet.PageSetup.PrintArea = "$h$3:$O$36"
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        
        Do
            ActiveCell = ActiveCell + 2
            ActiveWindow.SelectedSheets.PrintPreview
        Loop Until ActiveCell.Value >= Range("N1").Value
        Range("A1").Select
    [BK3].Value = "FALSE"
End Sub

بس خلاص ..

متنساش تغير كلمة PrintPreview إلى PrintOut

أي طلب جديد ليس له علاقة بالموضوع يرجى طرحه في موضوع مستقل

 

[مصطفى محمود مصطفى]

السلام عليكم

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

استاذي العزيز الكود المرسل وحسب ملاحظتكم

اقتباس

متنساش تغير كلمة PrintPreview إلى PrintOut

غيرت بكود حضرتكم وابدلتها حسب ملاحظتكم  والكود يعمل بشكل رائع

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

يقوم بطباعة ورقة واحدة ويعطيني معاينة ويتوقف بعد ان الغي المعاينة يطبع الثانية وهكذا حتى يطبع الجميع

بوركت جهودكم الطيبة والاصيلة والكريمة وجزاكم الله خيرا

[مصطفى محمود مصطفى]

 السلام عليكم

اخي الأستاذ أبو البراء جزاكم الله خيرا

لي استفسار حول كود حضرتكم في مشاركة سابقة وهو  كود البداية وكود النهاية

وضعته مع كود الطباعة في ملفي وأوقفت الإضافات التي تفضلتم بها بفارزة( ' ) وبدأ الكود يعمل دون مشاكل

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

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

لان الحقيقة كود البداية والنهاية استخدمه في كل كود لتسريع وإيقاف اهتزاز الشاشة

رايكم السديد ان شاء الله حول الموضوع لأهميته

وفقكم الله وجزاكم الله خيرا

 

[ياسر خليل أبو البراء]

أخي الكريم مصطفى

يرجى تناول نقطة واحدة في كل مرة حتى لا أتشتت إذ أن وقتي ليس دائماً متاح

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

أنا جربت الكود والكود يطبع جميع الأوراق وليس ورقة واحدة كما تذكر .. استبدال كلمة PrintPreview شيلها وضع مكانها Printout للطباعة

الكلمة الأولى للمعاينة فقط والثانية للطباعة

أرجو أن يكون المطلوب

[مصطفى محمود مصطفى]

الاستاذ ابو البراء

شكرا لكم وبارك الله بكم

واثابكم الله  لجهودكم ووقتكم ووسع عليكم من رزقه

تحياتي