隐藏父页超链接Excel

我想隐藏当前用户正在查看的当前页面，当他们点击Excel中的超链接，将他们带到同一工作簿中的不同工作表中。 我尝试使用下面的代码

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) On Error GoTo Cleanup ActiveSheet.Visible = False Application.EnableEvents = False Target.Follow Cleanup: Application.EnableEvents = True End Sub 

因为我认为activesheet将是超链接的工作表，而不是目标工作表，但是，ActiveSheet是目标工作表。 有关如何隐藏partnet表单的build议？

Answer 1

这听起来很奇怪，但你需要更换

 ActiveSheet.Visible = False 

同

 Target.Parent.Parent.Visible = False 

为什么？

1. “目标”是被链接的单元格。
2. 该单元格的父元素是超链接源的单元格
3. 该单元格的父级是工作表

Answer 2

最好的解决scheme可能是创build一张可在每个工作表处于活动状态时可见的工作表列表，然后使用Worksheet_Activate事件来隐藏/取消隐藏必要的工作表，而不是使用FollowHyperlink事件。