如何设置工作表在选中时显示否则隐藏？

作者：绿色风分类：时间：2022-08-17 浏览：152

楼主 Zaezhong	Q：打开工作簿的时候只能看到一个目录，看不到其他隐藏的工作表，但是从这个目录里面可以点击链接到这些隐藏的工作表里面，也可以从隐藏工作表跳转到目录，但是一旦跳转回目录，那个工作表重新隐藏？ A： Private Sub Workbook_Open() Dim Sh As Worksheet For Each Sh In Worksheets '开始在工作表中循环 If Sh.Name <> "Sheet1" Then '如果工作表名称不等于sheet1 Sh.Visible = xlSheetHidden '那么隐藏 End If Next End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Sheet1" Then Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> "Sheet1" Then Sht.Visible = xlSheetHidden End If Next End If End Sub Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) With Worksheets(Target.Name) .Visible = -1 '设置工作表为显示状态 .Select '同时选择该工作表 End With End Sub 目录.rar
2楼 xyf2210	学习
3楼绿篱	继续学习咯~~~~~

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表