作者：乔山办公网日期：
返回目录：excel表格制作
在打开的EXCEL工作薄左下角右击工作表名，选择隐藏就行。
隐藏工作表也以隐藏了看不到，怎能通过超链接跳转到隐藏工作表，只能用VBA，首先取消隐藏表再超链接跳转到隐藏工作表具体位置。
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
If Sheet(i).Name <> "目录" Then Sheets(i).Visible = 2
Next
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
t = Left(Target.Range, InStr(Target.Range, "!") - 1)
Sheets(t).Visible = -1
Sheets(t).Select
End Sub
如图所示，首先建立了一个工作簿“天干地支”，其中含11个worksheet，第一个worksheet名为“天干”，后面十个依次命名为甲、乙、丙、丁、戊、己、庚、辛、壬、癸。e799bee5baa6e79fa5e98193e78988e69d83337
——最终的目标是当前只显示“天干”worksheet，隐藏后十个worksheet，但是要在第一个“天干”工作表中显示出后十个表格对应的序号的名称，并通过超链接进入对应worksheet。同时，在后十个worksheet中放入返回“天干”的链接，一旦返回“天干”后，该worksheet继续隐藏。
1、按照最常用的方法对“天干”worksheet中的对应名称建立超链接。
2、按Alt+F11，启动VBA编辑，点击左侧“天干地支”工作簿下的“天干”worksheet，在右侧打开的编辑框中复制以下代码：
Private Sub Worksheet_Activate()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden
Next sht
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End Sub
3、运行代码并保存退出。