كود لالغاء اخفاء شيتات ملف اكسل

[عمر عبد الرحمن]

السلام عليكم 

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

واريد إظهار كامل صفحات الملف من اجل تعديل مهم 

الرجاء المساعدة وشكرا

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub UnhideSheets()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVisible
Next
End Sub

 

[عمر عبد الرحمن]

شكرا استاذ ابراهيم الحداد