(资料图片仅供参考)

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

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

Dim aaa As WorksheetFor Each aaa In WorksheetsIf aaa.Name <> ActiveSheet.Name Thenaaa.Visible = FalseEnd IfNext aaa