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

[thaqeb]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

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

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

[thaqeb]

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

[amir_ts]

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