اخفاء الصفوف واظهارها من صفحات الملف باستثناء صفحتين

[ابو مارفن]

السلام عليكم استاذتنا الاعزاء  محتاج اضافه للكود الملف ليطبق على كل صفحات الملف باستثناء صفحتين٤ و٥ بإخفاء الصفوف بداية من الصف 10 الى الصف 15

مع جزيلا الشكر 

كود لإخفاء الصفوف واظهارها.xls

[Ali Mohamed Ali]

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك

Sub Hide()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet4" And ws.Name <> "Sheet5" Then
ws.Rows("10:15").EntireRow.Hidden = Not ws.Rows("10:15").EntireRow.Hidden
End If
Next
End Sub

كود لإخفاء الصفوف واظهارها.xlsm

[ابو مارفن]

شكرا جزيلا لك استاذ العزيز علي المحترم الكود يعمل بشكل ممتاز الله يحفظك ويبارك بيك وبجهودك ويجعلهافي ميزان حسناتك