(资料图片仅供参考)

1、Private Sub Workbook_SheetActivate(ByVal Sh As Object) i = 2 Do If i <> Sh.Index Then Worksheets(i).Visible = False i = i + 1 Loop Until i > Worksheets.Count End Sub 使用VBA来做最简单，把我这些代码复制到“ThisWorkbook"代码窗口里，打开文件时，就会只显示第一张工作表了。

2、而在第一张工作表里建十个按钮，每个按钮都和一段代码关联，如： XX.sheet(X).visible=true 具体视你的工作表名称而定。

3、 试试看就知道了。

本文到此分享完毕，希望对大家有所帮助。