اظهار الاوراق المخفية مرة واحدة

[ابو ذكري]

لدي ملف اكسل به أكثر من 50 ورقة عمل فأقوم باخفائها واظهارها حسب الحاجة

فهل هناك طريقة لإظهار كافة الأوراق المخفية أو عدد منها مرة واحدة بدل من اظهارا ورقة واحدة في كل مرة

وتفضلوا بقبول فائق الاحترام

[سليم حاصبيا]

جرب هذا الماكرو

Sub show_sheets()
For i = 2 To Sheets.Count
 If Sheets(i).Visible = False Then Sheets(i).Visible = True
 Next
End Sub

 

[ياسر العربى]

تفضل هذا الكود من اعمال اساتذة هذا المنتدى العظيم

كود اعتقد انه مريح وسهل التعامل معه لمن يريد التعامل مع الشيتات المخفية بصفة مستمرة

show & hide sheets.rar