منع وإخفاء وطباعة أوراق عمل محددة فى مصنف - سعيد بيرم

[أبو سجده]

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

وبه نستعين

السادة الزملاء الافاضل 

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

الكود التالى طلب للأخ الفاضل // ناصر المصرى

على الرابط أدناه

 

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

منع وإخفاء وطباعة أوراق محددة فى مصنف

 أما عن الشق الثانى فقد حاولت فيه ولكن لم يوفقنى الله فى تنفيذه

 والتى تخص الاوراق من stor1 حتى stor10لذا يرجى من الاخ ناصر برفع موضوع جديد موضحا به الاضافة التى يريد إضافتها على الكود المشار اليه

حتى يتمكن السادة الزملاء الافاضل بتقديم المساعدة

 تقبلوا وافر تقديرى واحترامى

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

Option Explicit
Sub Print_SalmaSaied()
Dim CurVis As Long, sh As Worksheet, HidShts, S
    Application.ScreenUpdating = 0
    HidShts = Array("List", "Add", "Main store", "Archives", "Collection items", "Suppliers", "Customers")
    For Each sh In ActiveWorkbook.Worksheets
        S = Application.Match(sh.Name, HidShts, 0)
       If Application.WorksheetFunction.CountBlank(sh.Range("A10:I10000")) <> sh.Range("A10:I10000").Count Then
       If IsError(S) Then
            With sh
                CurVis = .Visible
                If CurVis >= 0 Then
                    .Visible = xlSheetVisible
                    .PrintOut
                    sh.Range("A10:I10000").ClearContents
                    .Visible = CurVis
                End If
            End With
        End If
        End If
    Next sh
End Sub

منع وإخفاء وطباعة اوراق عمل محددة فى مصنف - سعيد بيرم.rar

تم تعديل مارس 31, 2017 بواسطه ابو عبدالرحمن بيرم

[حمادة عمر]

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

[أبو سجده]

أخى وحبيبى حماده عمر" أبو سما "

وجزاكم مثله 

أرجو الاهتمام من السادة الزملاء بمتابعة الموضوع لاستكمال باقى فكرة الاخ ناصر

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل مارس 31, 2017 بواسطه ابو عبدالرحمن بيرم

[ناصرالمصرى]

اخى الاستاذ الفاضل / سعيد بيرم

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

انه لمن دواعى سرورى اعادة رفع الموضوع مرة أخرى

وإن كنت أتمنى ان تصل الى حل الى طلبى الثانى ولكن ماتوصلت 

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

الاخوة الكرام وسأحاول شرح المطلوب لايصال الفكرة بطريقة ميسرة بموضوع منفصل

شاكر فضل حضرتك وفضل الاستاذ القدير / محمد طاهر والاستاذ / حماده عمر

لاهتمامكم البالغ نحو حل المشكلة السابقة **** وجزاكم الله خيرا