اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته
لو سمحتم عايز اطبق الكود علي ملف اكسيل
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