(资料图片仅供参考)
本文代码可用于隐藏除当前使用中的工作表之外的所有工作表。
aaa为自定义的变量名，可自行更换。
Dim aaa As WorksheetFor Each aaa In WorksheetsIf aaa.Name <> ActiveSheet.Name Thenaaa.Visible = FalseEnd IfNext aaa
关键词：
鉴定
(资料图片仅供参考)
