[حل شده] مخفی کردن شیت های دلخواه

[thaqeb]

با سلام واحترام من تقریبا 800شیت دارم که می خواهم شیت هایی که با حرف مشخص مثلا "p" شروع شده اند را hide نمایم لطفا راهنمایی فرمایید.

[amir_ts]

با سلام
کد زیر رو امتحان کنید.

[LEFT]

Sub Hidesheet()
    Dim ws As Worksheet
     
    For Each ws In Worksheets
        If ws.Name Like "p*" Then ws.Visible = xlSheetHidden
    Next ws
End Sub

[/LEFT]

[thaqeb]

برادر amir ممنون ومتشکر از جواب شما لیکن شیت های من از page 1شروع می شود تا page n و این دستور شما را اجرا کردم آنها را مخفی نکرد

[amir_ts]

با سلام
فایل نمونه رو ملاحظه کنید و از شیت master نتیجه رو دنبال کنید.