پنهان سازی شیت ها در اکسل

ماکرو ذیل تمام شیت های اکسل را که باز است به غیر از شیت چاری را مخفی می نماید :

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