怎么通過(guò)VBA編程實(shí)現(xiàn)Excel工作簿只顯示指定工作表？

1、啟動(dòng)Excel并打開(kāi)Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項(xiàng)打開(kāi)其“代碼”窗口，在其中輸入程序代碼，如圖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　在“代碼”窗口中輸入程序代碼

提示：在程序中，首先定義一個(gè)名為sht的工作表對(duì)象，使用For Each……In結(jié)構(gòu)遍歷工作簿中所有的工作表，判斷當(dāng)前工作表是否是“主界面”工作表，如果不是則將其隱藏。

2、切換到Excel，保存文檔。當(dāng)再次打開(kāi)文檔時(shí)，工作表中將只保留指定的界面，如圖2所示。

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