代码之家  ›  专栏  ›  技术社区  ›  Irwin M. Fletcher

隐藏父页超链接Excel

  •  1
  • Irwin M. Fletcher  · 技术社区  · 15 年前

    我想隐藏用户在单击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工作表有什么建议吗?

    2 回复  |  直到 15 年前
        1
  •  2
  •   DaveParillo    15 年前

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

    ActiveSheet.Visible = False
    

    具有

    Target.Parent.Parent.Visible = False
    

    为什么?

    1. “目标”是要链接到的单元格。
    2. 该单元格的父级是作为超链接源的单元格
    3. 亲本 那个 单元格是工作表
        2
  •  0
  •   guitarthrower    15 年前

    最好的解决方案可能是创建在每个工作表处于活动状态时可见的工作表列表,然后使用工作表激活事件隐藏/取消隐藏必要的工作表,而不是使用以下超链接事件。