Protection masquage/suppression onglets avec affichage différencié onglets

Bonjour à tous,

J'ai un souci pour associer 2 événemnets de macro, l'une pour masquer les pages en workbook open, et l'autre en protection des feuilles pour ne pas les masquer ou les supprimer.

J'ai une page Acceuil avec un bouton cadenas pour avoir accés aux onglets: (Code page Acceuil).

Le mot de passe pour un service est I123, qui affiche 2 onglets, et un mot de passe pour un autre service, D123, qui affiche les 4 onglets.

Je voudrais ajouter le code de cette macro.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'Non accés au masquage ou suppr feuilles
    For Each Sh In ActiveWindow.SelectedSheets
        Select Case Sh.Name
            Case "Acceuil", "Absences", "Salariés", "Param"            
                ThisWorkbook.protect "123" 
                'Exit Sub
        End Select
    Next
End Sub

A la réouverture du fichier, j'ai soit l'affichage différencié des onglets, soit la protection des onglets avec un bug (erreur AS400") ou sur le code de masquage des onglets.

Merci de votre aide.

Bonjour,

Votre code corrigé:

Cdlt

Bonjour Arturo83,

Merci pour la correction qui causait l'erreur AS 400.

J'ai trouvé la solution à mon problème avec

        ActiveWorkbook.Unprotect Password:="mdp"
        ActiveWorkbook.protect Password:="mdp"

avant/aprés le code de masquage des onglets.

Bonjour à tous,

J'ai encore un souci, désolé.

Le même code protége et déprotége les onglets si on le rééxécute.

ActiveWorkbook.protect Password:="mdp"

Il faudrait que je code le statut du fichier pour qu'il fasse la protection, du genre :

if ActiveWorkbook.protectcontents = true then ActiveWorkbook.protect Password:="mdp"

qui ne bug pas.

Merci

Bonjour,

"ProtectContents" est réservé pour les feuilles, pas pour un classeur,

Il faut tester la structure du classeur, et s'il n'est pas protégé par un mot de passe alors on lui en attribue un.

If Not ActiveWorkbook.ProtectStructure Then ActiveWorkbook.Protect Password:="mdp"

Cdlt

Merci