ناصرالمصرى

السلام عليكم ورحمته الله وبركاته المرفق التالى لمنع وإخفاء وطباعة أوراق عمل محددة الرابط أطمع بعد إذن حضراتكم فى إضافة على الكود المبين بهذا المرفق تخص الاوراق من stor1 حتى stor10 حيث تحتوى كل ورقة من تلك الورقات على خمسة صفحات جاهزة للطباعة وكل صفحة تحتوى على عدد 20 بيان ولكن تختلف عدد البيانات المُرحلة لتلك الورقات فكيف يمكن طباعة تلك الصفحات مع إخفاء باقى الصفحات الفارغة من البيانات مثال Stor1 يحتوى على 9 صفوف فقط " النتيجة المطلوبة إخفاء الاربع صفحات من صفحة 2 حتى صفحة 5 " Stor2 يحتوى على 26 صف فقط " النتيجة المطلوبة اخفاء الثلاث صفحات من صفحة 3 حتى صفحة 5 " Stor10 يحتوى على 100 صف " النتيجة المطلوبة لا إخفاء " شاكر فضل الجميع **** وجزاكم الله خيرا طباعة صفحات محددة لاكثر من ورقة عمل فى مصنف مع إخفاء الصفحات الفارغة من البيانات.xlsb.rar

اخى واستاذى الفاضل / حماده عمر السلام عليكم لك مشئت وفى انتظار مساهمتك المباركة شاكر فضل حضرتك وفضل الجميع **** وجزاكم الله خيرا

اخى الفاضل / حماده عمر السلام عليكم وعدت وأوفيت ***** واتمنى مشاركتك للوصول لحل مثالى لطلبى الثانى جارى رفع موضوع أملا فى التوصل لحل شاكر فضل حضرتك **** وجزاكم الله خيرا

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

السيد الاستاذ / محمد طاهر لا أصدق نفسى نحو هذا الاهتمام البالغ من سعادتكم شخصيا ومن السيد الاستاذ / حماده عمر ومن السيد الاستاذ / سعيد بيرم لم أرى هذة الاخلاق الكريمة الا فى منتداكم شاكر فضل حضراتكم جميعا ***** وجزاكم الله خيرا

للرفع رفع الله قدركم

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

نظرا لعدم تلقى السادة الاخوة المشرفين أية رسائل عبر المنتدى اتقدم بخالص الشكر والعرفان للسيد الاستاذ / حماده عمر " ابوسما " لوعده بحل مشكلتى المطروحة على الرابط وإن كان هناك عتاب اخى الفاضل وهو عتاب بين الاحبة ياأخى الفاضل**** ياأبو سما**** إعطينى فرصة اقول لك فيها كلمة شكر لاهتمامك بحل المشكلة حتى ولو بكلمة " جزاكم الله خيرا " لوعدكم الحر ومن بعدها إغلق الموصوع كما تشاء عموما انا فى انتظار حل المشكلة كما وعدت سيدى الفاضل شاكر فضل حضرتك **** وجزاكم الله خيرا

أحبابى الكرام مشرفى واعضاء المنتدى السلام عليكم ورحمته الله وبركاته منذ أيام قليلة وقبل تحديث الموقع الاخير تم رفع موضوع بمعرفة الاستاذ الفاضل / سعيد بيرم تحت عنوان منع وإخفاء وطباعة اوراق محددة فى مصنف ردا على موضوعى التالى حيث نوه سيادته على رابط الموضوع بالمشاركة الاخيرة على الرابط ولكنى لم اتمكن من تحميل المرفق لعدم تواجده على الرابط الخاص به لاننى كلما دخلت على رابط الموضوع يتم التحويل على الصفحة الرئيسية للمنتدى ونظرا لفقدى جميع محتويات جهازى بطريق الخطأ من أحد أولادى والسؤل هل مع تحديث المنتدى يتم حذف أخر الموضوعات المطروحة ؟ والرجاء أرجو من جميع الاخوة الافاضل الذين قاموا بتحميل المرفق رفعه هنا للأهمية شاكر فضل حضراتكم *** وجزاكم الله خيرا

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

للرفع رفع الله قدركم

والشكر موصول للسيد الاستاذ / hicham الذى أوجه له الدعوة بتغير اسمه الى العربية للتواصل الفعال اما عن التعديل ففى نفس المرفقات السابقة وافر تقديرى

اخى الفاضل / حماده عمر السلام عليكم عذرا للتأخير فى الرد لضعف شديد فى النت خلينا واحدة واحدة الكود الاول printsheets لمنع اوراق محددة من الطباعة وتم تسمية أسماء تلك الاوراق من داخل الكود وهو يعمل بطريقة ممتازة فى حالة عدم اخفاء مايلية من اوراق والمطلوب هنا طباعة الاوراق من STOR1 حتى STOR10 مع الاخفاء " مش إظهار ثم اخفاء " هنا تكمن المشكلة فهل يمكن إضافة شرط فى الكود printsheets من شأنه طباعة الاوراق من STOR1 حتى STOR10 مع الاخفاء هذا هو السؤال وهذا ما أبحث عنه شاكر فضل حضرتك **** وجزاكم الله خيرا

للرفع رفع الله قدركم

بسم الله الرحمن الرحيم وبه نستعين أخى وأستاذى الفاضل / حماده عمر " ابوسما " السلام عليكم ورحمته الله وبركاته شاكر لكم اخى اهتمامكم بالموضوع فجزاكم الله تعالى خير الجزاء معلشى الموضوع محير بعض الشيىء المشكلة اننى اريد اخفاء كامل المصنف باستثناء ورقتين فقط الظاهرين أمام حضرتك بالمرفق التالى منهم عدة أوراق دون طباعة مع الاخفاء ومنهم عدة اوراق طباعة مع الاخفاء وهى الاوراق من STOR 1 حتى STOR 10 لديك بالمرفق التالى أربعة أكواد الاول لمنع طباعة اوراق محددة سواء مرئية أو مخفية وهو ويعمل بطريقة ممتازة Sub printsheets() ' لمنع صفحات محددة من الطباعة سواء مرئية أو مخفية Dim dontPrint As Object Dim ws As Worksheet Set dontPrint = CreateObject("Scripting.Dictionary") dontPrint.Add "List", 1 dontPrint.Add "Add", 2 dontPrint.Add "Main store", 3 dontPrint.Add "Search", 4 dontPrint.Add "Archives", 16 dontPrint.Add "Collection items", 17 dontPrint.Add "Suppliers", 18 dontPrint.Add "Customers", 19 For Each ws In ActiveWorkbook.Worksheets If dontPrint.Exists(ws.Name) Then Else ws.PrintOut End If Next ws End Sub الثانى لطباعة الاوراق المخفية فقط وهو يعمل أيضا بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintOnlyHiddenWorksheets() ' لطباعة الاوارق المخفية فقط Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut .Visible = CurVis End If End With Next sh End Sub الثالث لطباعة الاوراق المرئية والمخفيه معا وهو ايضا يعمل بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintHiddenAndVisibleWorksheets() ' لطباعة الاوراق المخفية والمرئية معا Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible .Visible = xlSheetVisible .PrintOut .Visible = CurVis End With Next sh End Sub نأتى للكود الرابع والمعنى بالاضافة أو التعديل الذى تفضلت سيادتكم بتعديله Sub Test() 'تعديل الاستاذ الفاضل / حمادة عمر ابو سما Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("Stor10", "Stor9", "Stor8", "Stor7", "Stor6", "Stor5", "Stor4", "Stor3", "Stor2", "Stor1")) sh.Visible = xlSheetVisible If Application.WorksheetFunction.CountBlank(sh.Range("A10:V5000")) <> sh.Range("A10:V5000").Count Then sh.PrintOut sh.Range("A10:V5000").ClearContents ' اضفت هذا السطر لمسح محتوى الجدوال بعد الطباعة sh.Visible = xlSheetHidden End If Next sh Application.ScreenUpdating = True End Sub والسؤال كيف يمكن عمل توافق بين الكود الاول والكود الرابع كمصفوفه بين منع الطباعة مع الاخفاء وبين طباعة المصفوفة مع الاخفاء ملحوظة هذا الموضوع مرتبط بموضوع خاص بكم تم رفعه ولكن لم يرد الرد من سيادتكم حتى الان نرجو الاطلاع والافادة بإذن الله من فضلك إضغط هنا شاكر فضلك وشاكر فضل كل من يساهم فى هذا الموضوع وجزاكم الله جميعا خير الجزاء طباعة اوراق محددة مع الاخفاء + منع طباعة اوراق مع الاخفاء.xlsb.rar

للرفع رفع الله قدركم

للرفع

للرفع

الاستاذ الفاضل / ابو عصام السلام عليكم اعتقد ان طلب سيادتكم بعيدا عن انواع الحماية " مجرد إعتقاد" ولكن فى العموم جرب المرفق التالى وهو أحد إبداعات الاستاذ الكبير والاخ الفاضل / ياسر خليل " ابو البراء" وستجد الكثير من الموضوعات التى تتحدث عن انواع الحماية http://yasserkhalilexcellover.blogspot.com.eg/2016/09/kill-workbook-from-hd.html شاكر فضلك *** وجزاكم الله خيرا

السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar

السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar

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

والله ياحاج مجدى انا اللى خدامك ويكفينى فخرا وشرفا اهتمامك بالموضوع وزى ماحضرتك عارف أن كل موضوع له ظروفه الخاصة عموما جارى التجربة وسأخبركم بإذن الله*** جزاكم الله خيرا

أخى وأستاذنا الفاضل الحاج / مجدى السلام عليكم ورحمته الله وبركاته جارى الاطلاع والافادة ولاتنزعج منى حال عودتى لك وافر التقدير والتحية والاحترام شاكر فضل حضرتك ****وجزاكم الله خيرا

جعل الله هذا العمل المبارك فى ميزان حسناتكم