اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

وبه نستعين

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

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

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

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

 

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

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

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

 والتى تخص الاوراق من 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

تم تعديل بواسطه ابو عبدالرحمن بيرم
  • Like 1
رابط هذا التعليق
شارك

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

وجزاكم مثله 

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

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

تم تعديل بواسطه ابو عبدالرحمن بيرم
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information