نمایش و مخفی سازی برگه های یک کاربرگ در اکسل

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

در اینجا کدی وجود دارد که همه کاربرگ های کتاب کار را آشکار می کند.

Sub UnhideAllWoksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

کد بالا از یک حلقه VBA (For Every) برای مرور هر کاربرگ در کتاب کار استفاده می کند. سپس ویژگی قابل مشاهده کاربرگ را به قابل مشاهده تغییر می دهد.

به منظور پنهان سازی برگ های یک کاربرگ (به جزء برگ جاری) از کد ذیل استفاده کنید :

Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub