اخفاء اوراق عمل معينة

[2saad]

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

لو سمحتم عايز اطبق الكود علي ملف اكسيل

Sub HideShowSheets()

'إعلان متغيرات
Dim ws As Worksheet
Dim i As Long

'الحصول على أسماء أوراق العمل من قائمة
For i = 1 To Sheets.Count
    Sheets(i).Name = Sheets(i).Name & " (" & i & ")"
Next i

'إظهار يوزر فورم
UserForm1.Show

'التعامل مع خيارات يوزر فورم
If UserForm1.Option1.Value = True Then
    'إخفاء جميع أوراق العمل
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlVeryHidden
    Next ws
    'إظهار ورقة العمل المحددة
    Sheets("Sheet1").Visible = xlVisible
ElseIf UserForm1.Option2.Value = True Then
    'إظهار جميع أوراق العمل
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlVisible
    Next ws
End If

'إخفاء يوزر فورم
UserForm1.Hide

End Sub

mm.xlsm

[abouelhassan]

وضح طلبك 

اذا كان بدك تطبيق الكود فقط

أرى انك تحاول طالما لديك الكود للتعلم

أما إذا كان شى ثانى برجاء التوضيح 

[2saad]

أنا عايز اتعلم اطبق هذا الكود أو لو عند حضرتك كود ثان أكون شاكر حضرتك

[abouelhassan]

كود ثان. يعمل ايه

ما هو المطلوب لكى ننفذه

انت واضع كود عايز تطبقه طيب ما تطبقه 

بسيطة تعلم تطبيق الكود أما إذا كان لك طلب تحتاج كود لتنفيذه كنت كتبته من الاول او افتح مشاركة جديدة بها طلبك

تقبل احترامى 

[2saad]

الكود ده أنا جايبه من موقع وعايز اطبقه

بس أنا مش عارف اطبقه علي الملف يعني مش عايز يشتغل

هو عبارة عن كود يخفي اوراق العمل ونضع ازرار ( كومنت بوتن ) في اليوزرم فورم بعدد اوراق العمل ليتم فتحها عن طريقه

وشكرا

لو عند حضرتك كود تاني بسيط سهل الفهم أكون شاكر لحضرتك

[أبومروان]

 

HID_SH.rar

[2saad]

شكرا جزيلا وبارك الله فيك