XL 2013 Masquer Feuil1 si Feuil3 NON masquée

[Usine à gaz]

Bonjour à toutes et à tous,

Me re-voilou pour une nouvelle question.

Malgré mes recheches, je n'arrive pas à trouver la réponse.
Mais peut-être que ce n'est pas possible.

Ce que je voudrais faire :
Ici, je suis sur ma Feuill3

J'ai besoin que tant que je suis sur ma Feuill3, l'onglet Feuil1 ne puisse pas être sélectionné.

Auriez-vous la solution ? (petit fichier test joint)

Un grand Merci encore une fois.

Bonne journée à toutes et à tous
Amicalement,
arthour973,

 

[Si...]

Bon_jour

Job, je suis sourd d'une oreille et n'entends pas de l'autre donc pour arthour (qui pourra, peut-être, dormir sur ses 2 oreilles) , essaye de glisser dans ThisWorkbook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Feuil1.Visible = 1: Feuil3.Visible = 1
    Select Case Sh.Name
        Case "Feuil1": Feuil3.Visible = 2
        Case "Feuil3": Feuil1.Visible = 2
  End Select
End Sub

Maintenant s'il y a d'autres conditions à l'ouverture des onglets non impliqués au jeu de cache -cache, ce sera un autre son de cloche.

 

[Usine à gaz]

Bonjour SI,

Merci d'être encore là

J'avais bien pensé que c'était dans le ThisWorkbook qu'il fallait mettre un code mais je n'ai pas su le faire.
Super, je teste et je reviens.
Amicalement,
arthour973

 

[Usine à gaz]

Re Si,

Après test, c'est nickel
Un grand merci à toi
Je joins le fichier test.