【方块鱼塘】Excel VBA-隐藏工作表

本文代码可用于隐藏除当前使用中的工作表之外的所有工作表。

aaa为自定义的变量名，可自行更换。

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