通過VBA編程實現(xiàn)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結(jié)構(gòu)遍歷工作簿中所有的工作表，判斷當前工作表是否是“主界面”工作表，如果不是則將其隱藏。

2、切換到Excel，保存文檔。當再次打開文檔時，工作表中將只保留指定的界面，如圖2所示。

圖2　工作簿只顯示“主界面”工作表