本文代碼可用于隱藏除當(dāng)前使用中的工作表之外的所有工作表。

aaa為自定義的變量名，可自行更換。

Dim aaa As Worksheet
For Each aaa?In Worksheets
If aaa.Name <> ActiveSheet.Name Then
aaa.Visible = False
End If
Next aaa?