ارجو المساعده فى هذا الشيت

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

لقد استحدمت كود لاخفاء الصفحات ولكن ماذا افعل لاظهارها مره اخرى

تامينات.rar

[Ahmed Elbhiry]

ادخل على home_cells_format_hide&unhide_unhid.sheet....

لحين رد اساتذة الاكواد

دمتم برعاية الله

[عبدالله المجرب]

السلام عليكم

كيف تريد طريقة اظهار الاوراق

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أخي الفاضل حفظك الله

جرب هذا الكود

Sub Un_Hide_All()

Dim sh As Worksheet

For Each sh In Worksheets

sh.Visible = True

Next

End Sub

أبوأنس

[الـعيدروس]

السلام عليكم

Sub Un_Hide_All()

On Error Resume Next

Dim sh As Worksheet

For Each sh In Worksheets

If sh.Name = Sheet4.Name Then GoTo 0

sh.Visible = True ' TRUE = إظهار  ' FALSE = إخفاء

0

Next

Sheets("GO TO").Select

End Sub