اخفاء ورقة عمل بربط نعم /لا

[عبداللهM]

إخواني أعضاء أوفيسنا

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

مثال الاكسل كيف يتم اخفاء ورقة عمل

اذا اختيار نعم يظهر ورقة عمل 1/2/3   

اذا اختيار لا يظهر ورقة عمل 1/2/3   

اخفاء.rar

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

الأخ الفاضل عبد الله

جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "نعم" Then
            Sheets("1").Visible = True
            Sheets("2").Visible = True
            Sheets("3").Visible = True
        Else
            Sheets("1").Visible = False
            Sheets("2").Visible = False
            Sheets("3").Visible = False
        End If
        Application.ScreenUpdating = True
    End If
End Sub

تقبل تحياتي

Hide Sheets Based On Worksheet Change.rar

[عبداللهM]

بارك الله فيك اخي ياسر هذا المطلوب

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

أخي الفاضل عبد الله

الحمد لله أن من عليك بالحل

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي ، لكي يلتفت الأخوة الكرام إلى الموضوعات الأخرى الغير مجابة

تقبل تحياتي

[عبداللهM]

بارك الله فيك وانا اسف جدا 

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

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

الأخ الكريم عبد الله

أدعوك لهذا الرابط لمعرفة كيفية التعامل مع المنتدى

 

رابط التوجيهات

 

في أسفل كل مشاركة تجد كلمة "تحديد كأفضل إجابة" انقر على المشاركة التي أعجبتك ليظهر الموضوع مجاب

 

تقبل تحياتي

[عبداللهM]

اخي الفااضل ياسر 

السلام عليكم

 

تجربة الكود على الاكسل 2003 لم يعمل اخفاء الورقة 

علما الكود يشتغل الاكسل 2010  

نامل المساعدة  في  وضع الكود يعمل على اي اصدار

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

جرب تغير هذا السطر

If Target.Cells.CountLarge > 1 Then Exit Sub

إلى السطر التالي

If Target.Cells.Count > 1 Then Exit Sub

[عبداللهM]

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

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

الحمد لله

 

لم يتم تحديد أفضل إجابة ..........