Masquer Onglet

Bonjour,

Je souhaite masquer des onglets à l'ouverture du classeur, j'ai remarqué que lorsque je lance le code via AutoOpen, le code est bien exécuté mais on voit pendant un laps de temps les onglets avant qu'ils soient cachés.

J'ai donc essayé de lancer le code à l'activation du classeur (Workbook_Activate), ça fonctionne, mais j'aimerai qu'il ne soit exécuté qu'à l'ouverture et non chaque fois que je clic dessus lorsque je navigue entre plusieurs classeurs.

Je pensais mettre une variable type "drapeau", une fois que le code est exécute on met cette variable à 1 et tant qu'elle reste à 1 on saute le code jusqu'à la prochaine ouverture du fichier.

Pourriez-vous m'aider.

Cordialement

Private Sub Workbook_Activate()

Static Flag As Integer

If Flag = True Then End

Worksheets("Accueil").Visible = True

For i = 2 To Worksheets.Count

Worksheets(i).Visible = xlVeryHidden

Next

MsgBox "AAAAAAAAAAAAAAA", vbInformation

Flag = True ' Mise a un du drapeau

End Sub

Bonjour,

Met ton code dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
End Sub

ou/et

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
End Sub

A+

Bonjour galopin01,

Je te remercie c'est parfait, et simple.

Bon Weekend

Pilougne

Rechercher des sujets similaires à "masquer onglet"