كيف يمكن إخفاء ورقة عمل SHEET مربوطة بزر به ماكرو؟؟؟

[angel eyes]

كيف يمكن إخفاء ورقة عمل SHEET مربوطة بزر به ماكرو؟؟؟

عند ملف عمل به العديد من الأوراق و عندى ورقة رئيسية بها أزرار تخلنى على كل الأوراق فى الملف و هذه الأزرار بها ماكرو

فأريد إخفاء هذه الأوراق كلها ماعدا الورقة الرئيسية التى بها أزرار دون أن ياثر هذا على ملف العمل و كذلك على الماكرو

فهل يوجد كود لهذا أو طريقة عمل لها؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

و شكرا

[هادى محمد المامون سالم]

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



أرفقت لك ملف من مشاركه لى سابفه
أتمنى ان ينفعك



السلام عليكم

0311200601_Hide_01.zip

[angel eyes]

هل ممكن أنت تشرح لى كيف قمت بعمل هذا العمل الممتاز

و شكراااااا جزيلا على مجهودك الجبار معى و كذلك فى هذا المنتدى

[هادى محمد المامون سالم]

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

1 - من صفحه vba

2 - أدراج user form

3 - ثم قم باضافه ComboBox

4 - قف فى اى مكان على الفورم ثم ريت كليك ثم view code

5 - أنسخ هذا الكود

Private Sub UserForm_Activate()
    For Each i In Worksheets
        ComboBox1.AddItem (i.Name)
    Next
    i = i + 1
    For i = 1 To Sheets.Count
        Sheets(i).Visible = xlSheetVisible
    Next
End Sub

الشرح

استخدمت جمل For.....Next مرتان

المره الاولى لاضافه اوراق العمل فى ComboBox

المره الثانيه لاظهار جميع اوراق العمل

ثم استخدمت مفاتيح لاظهار الفورم و اوراق العمل

السلام عليكم

[angel eyes]

أشكرررررررك كثيراااااااا جدا على مجهودك الكبير معى