Accès onglets masqués par liens hypertexte

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim f As String
Dim c As String
  f = Replace(Split(Target.SubAddress, "!")(0), "'", "")
  c = Split(Target.SubAddress, "!")(1)
  Sheets(f).Visible = 1
  Sheets(f).Activate
  Sheets(f).Range(c).Activate
End Sub

Option Explicit
Private fermer As Boolean
Private liste As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  fermer = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer
  Application.ScreenUpdating = False
  i = ActiveSheet.Index
  Call MasquerFeuilles
  Application.EnableEvents = False
  ThisWorkbook.Save
  Application.EnableEvents = True
  Cancel = True
  If Not fermer Then
    Call AfficherFeuilles
    Worksheets(i).Activate
  End If
  ThisWorkbook.Saved = True
  fermer = False
  Application.ScreenUpdating = True
End Sub
Private Sub AfficherFeuilles()
Dim w As Worksheet
Dim t As Variant
Dim i As Integer
  t = Split(liste & ":", ":")
  For i = LBound(t) To UBound(t)
    If t(i) > "" Then Worksheets(t(i)).Visible = xlSheetVisible
  Next i
End Sub
Private Sub MasquerFeuilles()
Dim w As Worksheet
  With Worksheets("o")
    .Visible = xlSheetVisible
    .Activate
    liste = .Name
    For Each w In Worksheets
      If w.Index <> .Index Then
        If w.Visible = xlSheetVisible Then
          liste = liste & ":" & w.Name
        End If
        w.Visible = xlSheetHidden
      End If
    Next w
  End With
End Sub