怎么通过VBA编程实现Excel工作簿只显示指定工作表？

1、启动Excel并打开Visual Basic编辑器，在工程资源管理器中双击"ThisWorkbook"选项打开其“代码”窗口，在其中输入程序代码，如图1所示。具体的程序代码如下所示：

Private Sub Workbook_Open()

Dim sht As Worksheet

For Each sht In Me.Worksheets

If Not sht Is Worksheets("主界面")Then sht.Visible=xlSheetHidden

Next

End Sub

图1　在“代码”窗口中输入程序代码

提示：在程序中，首先定义一个名为sht的工作表对象，使用For Each……In结构遍历工作簿中所有的工作表，判断当前工作表是否是“主界面”工作表，如果不是则将其隐藏。

2、切换到Excel，保存文档。当再次打开文档时，工作表中将只保留指定的界面，如图2所示。

图2　工作簿只显示“主界面”工作表