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