استیو یک ورک بوک دارد که در آن برای هر پروژه ای که روی آن کار می کند یک برگه کاربرگ جدید ایجاد می کند. برای اینکه همه چیز قابل مدیریت باشد، برگه ها/پروژه های تکمیل شده را پنهان می کند. استیو اکنون بیش از 100 کاربرگ مخفی دارد. او به طور منظم نیاز به بازدید مجدد از یک پروژه تکمیل شده دارد. برای انجام این کار، استیو انتخاب می کند که کاربرگ ها را آشکار کند. این کادر محاوره ای Unhide را نشان می دهد که حاوی نام های کاربرگ پنهان است، بدون ترتیب ظاهری. برای یافتن یک برگه/پروژه، او باید در این کادر محاوره ای بسیار کوچک پیمایش کند و به دنبال تب مناسب بگردد. استیو این کار را بسیار پرزحمت و زمان بر می داند، بنابراین او به این فکر می کند که آیا راه بهتری برای یافتن و پنهان کردن کاربرگ برای یک پروژه تکمیل شده وجود دارد یا خیر.
یک راه حل برای این مشکل بسیار رایج این است که می توانید یک فهرست یا فهرست مطالب برای کاربرگ های ورک بوک خود ایجاد کنید. شما این کار را با افزودن یک کاربرگ جدید و سپس قرار دادن هایپرلینک ها در کاربرگ به همه کاربرگ های مختلف در ورک بوک خود انجام می دهید. این می تواند تقریباً هر اطلاعاتی را که در مورد کاربرگ ها می خواهید (علاوه بر پیوند) باشد. بر روی لینک کلیک کنید و کاربرگ مورد نظر شما بدون نیاز به پیمایش در کادر محاوره ای نمایش داده می شود.
همچنین می توانید یک ورک بوک دوم ایجاد کنید که فقط شامل پروژه های تکمیل شده شما باشد. جابجایی کاربرگ ها از یک ورک بوک به کتاب دیگر بسیار آسان است، بنابراین استفاده از دو ورک بوک ("فعال" و "تکمیل") یک کار فوری خواهد بود. بعلاوه، نیازی به مخفی کردن هر یک از کاربرگ ها در ورک بوک حاوی پروژه های تکمیل شده ندارید و می توانید آنها را به هر ترتیب دلخواه قرار دهید.
اگر ترجیح می دهید ورک بوک خود را همانطور که هست نگه دارید، ممکن است بخواهید یک ماکرو ایجاد کنید که نمایش کاربرگ های مخفی شما را به یک فوریت تبدیل کند. به مثال زیر توجه کنید:
Sub UnHideWorksheets()
Dim sSheetName As String
Dim w As Worksheet
Dim sTemp As String
sTemp = "Name (or partial) of sheet to show?"
sSheetName = InputBox(sTemp, "Show Hidden Sheet")
If sSheetName > "" Then
sSheetName = LCase(sSheetName)
For Each w In Sheets
w.Tab.ColorIndex = xlColorIndexNone
sTemp = LCase(w.Name)
If Instr(sTemp, sSheetName) Then
w.Visible = True
w.Tab.ColorIndex = 6
End If
Next w
End If
End Sub
ماکرو از کاربر نام کاربرگ را می خواهد و سپس تمام کاربرگ ها را طی می کند. اگر مطابقت پیدا کرد، کاربرگ نمایش داده می شود و رنگ برگه کاربرگ ها روی زرد تنظیم می شود. ماکرو در واقع با موارد منطبق جزئی کار می کند، به این معنی که شما می توانید فقط بخشی از نام کاربرگ را وارد کنید و هر کاربرگ حاوی تطابق جزئی پنهان نخواهد شد. شما به راحتی می توانید ماکرو را به یک کلید میانبر یا نوار ابزار دسترسی سریع خود اختصاص دهید تا بتوانید در یک لحظه آن را وارد عمل کنید.
