تكرار تشغيل ماكرو بسيط في كل الشيتات الموجودة في المصنف بدلا من تكراره في كل شيت

[ahmad5544]

السلام عليكم ورحمة الله وبركاته 
اطلب من اصحاب الخبرة الكرماء 
تعديل صيغة الماكرو لكي ينفذ في جميع الشيتات الموجودة في المصنف عند تشغيله

عدد الشتات كبير يتعدة 150
وهي ليست ثابتة يحذف منها ويضاف عليها باستمرار 
ولكم جزيل الشكر مقدما اخوتي
الماكرو هو التالي

Sub Macro3()
'
' Macro3 ماكرو
'
' مفتاح الاختصار: Ctrl+ض
'
    Range("A8").Select
    ActiveSheet.ShowAllData
    Selection.End(xlDown).Select
End Sub
 

[ياسر خليل أبو البراء]

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

جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            If ws.AutoFilterMode Then
                On Error Resume Next
                    ws.ShowAllData
                On Error GoTo 0
            End If
        Next ws
    Application.ScreenUpdating = True
End Sub

 

[ياسر خليل أبو البراء]

ولتجنب استخدام جملة On Error Resume Next يمكن تعديل الكود بهذا الشكل

Sub Test2()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            With ws
                If .AutoFilterMode Then
                    .AutoFilterMode = False
                    If .FilterMode = True Then .ShowAllData
                End If
            End With
        Next ws
    Application.ScreenUpdating = True
End Sub

 

[محمد هشام.]

ربما لم تراجع الموضوع السابق من قبل