请问如何设置隐藏除首页外的其他工作表，同时可以由首页来打开已经隐藏了的工作表。

一天36小时

如题：请问如何设置隐藏除首页外的其他的工作表，同时可以由首页来打开已经隐藏了的工作表。
        说明：假设我在一个工作薄中添加了包括：首页、第1页、第2页、第3页。。。第10页等等N个工作表。 我想将除首页之外的其他的第1页、第2页、第3页等等的这些工作全部隐藏起来，然后在首页设置 一些按钮（或超链接）点击即可进入我想进入的工作表。

我试过用以下的代码试过，可有时候会失灵，有时候会出现第1页失去链接，而点击第2页的链接条却进入了第1页，点击第3页却进入了第2页。。。以此类推。最后一页打不开了。

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

我的编辑步骤是：
第一、按照最常用的方法对此工作薄worksheet中的对应名称建立超链接。   
第二、然后在VBA编辑器里的工作簿下的首页[即Sheets(1)]的代码栏里粘贴以上的代码。
第三、运行代码并保存退出。


不知道为什么，这个方法有时候是没有错误的，有时候却会出错。在此请求各位大虾指点指点。
最好是有其他更好的方法来实现我想要的这个效果。
如果有的话，请跟贴把BVA代码发上来并作详细步骤解释，谢谢！！！因为我是菜鸟，不懂怎么弄。
        

AVEL

需要在thisworkbook中添加工作簿事件代码。

1. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
   
2.     If Sh.Name <> "首页" Then Sh.Visible = 2
   
3. End Sub

复制代码

一天36小时

AVEL 发表于 2013-3-23 08:41
需要在thisworkbook中添加工作簿事件代码。

您好！将这些代码复制进去后，如果用超链接的方法，还是不行。用录制宏的方法，一点击就提示：VBA运行时错误‘1004’类的worksheet的select方法无效。


这是怎么回事？
添加这些代码之前，和添加代码之后还要做哪些操作吗？你能详解一下吗？感激不尽！

AVEL

能否做个附件上传看看。。

一天36小时

AVEL 发表于 2013-3-24 19:31
能否做个附件上传看看。。

例表.rar (64.29 KB, 下载次数: 20)

2013-3-25 21:47 上传

点击文件名下载附件

好的，表件已经上传，有劳指教！

AVEL

一天36小时 发表于 2013-3-25 21:48
好的，表件已经上传，有劳指教！

我的系统只有2003版本的。
所以。。。。 打不开你附件中的文件。

AVEL

一天36小时 发表于 2013-3-27 08:33
哇~~~，做得很好哦！请问方便给我讲解一下吗？要怎么设置的具体步骤是什么？

主要就是应用工作簿事件，工作表事件来实现的
工作簿事件控制从其他表格跳到首页时候的隐藏
工作表事件用来控制跳转至相应的工作表

一天36小时

AVEL 发表于 2013-3-26 08:26
我的系统只有2003版本的。
所以。。。。 打不开你附件中的文件。

嗯，收到。
麻烦你啦！
还是谢谢!

我再求助于其他人吧。祝你好运！

一天36小时

有路过的高手，请伸出你们的援手，急用的，感激不尽！

AVEL

今天回家了
给你做了一个。
试试
点击首页的相应的名称 会自动跳转
EH(AVEL)-例表1-1用超链接来打开工作表的例表（添加您的代码前） 13-03-26 20-57.rar (25.39 KB, 下载次数: 114)

2013-3-26 20:58 上传

点击文件名下载附件