2007Excel超链接怎么打开隐藏的工作表

　　如图所示，首先建立了一个工作簿“天干地支”，其中含11个worksheet，第一个worksheet名为“天干”，后面十个依次命名为甲、乙、丙、丁、戊、己、庚、辛、壬、癸。

　　——最终的目标是当前只显示“天干”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、运行代码并保存退出。

这个我之前做个示例文件，已通过VBA来实现，请查看附件文件（需Excel2007+才能打开）。