آشکارسازی چندین کاربرگ در اکسل

Question

هنگامی که انتخاب می‌کنید کاربرگ‌ها را در یک کتاب کار مخفی کنید، اکسل به شما اجازه می‌دهد چندین برگه را با یک عمل مخفی کنید: تنها کاری که باید انجام دهید این است که برگه‌ها را قبل از انجام عمل پنهان کردن انتخاب کنید. با این حال، پنهان کردن کاربرگ ها داستان متفاوتی است. اکسل فقط به شما امکان می دهد هر بار یکی از آنها را پنهان کنید. اگر کاربرگ های زیادی دارید که می خواهید پنهان کنید، این می تواند بسیار خسته کننده باشد.

تنها راه حل این مشکل استفاده از ماکرو برای آشکار کردن کاربرگ‌ها است. ماکرو VBA زیر همه کاربرگ‌های کتاب کار فعلی را آشکار می‌کند:

Sub UnhideAllSheets()
    Dim wsSheet As Worksheet

    For Each wsSheet In ActiveWorkbook.Worksheets
        wsSheet.Visible = xlSheetVisible
    Next wsSheet
End Sub

اگر ترجیح می‌دهید همه کاربرگ‌ها را همزمان باز نکنید، می‌توانید کاری کنید که ماکرو در مورد هر کاربرگ پنهان سؤال کند و سپس هر کاربرگ را که موافقت می‌کنید باز کنید. ماکرو زیر این کار را انجام می دهد:

Sub UnhideSomeSheets()
    Dim sSheetName As String
    Dim sMessage As String
    Dim Msgres As VbMsgBoxResult

    For Each wsSheet In ActiveWorkbook.Worksheets
        If wsSheet.Visible = xlSheetHidden Then
            sSheetName = wsSheet.Name
            sMessage = "Unhide the following sheet?" _
              & vbNewLine & sSheetName
            Msgres = MsgBox(sMessage, vbYesNo)
            If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
        End If
    Next wsSheet
End Sub