bloquer onglets avec code

[berto]

Bonjour,
Je souhaiterais bloquer des onglets (données incidents, Suivi, Détail des courses, Course et voyageurs,Calendrier, cumul, Liste des motifs) avec le code suivant: berto sur le fichier joint.
Je voudrais que pour pouvoir modifier ou ajouter quelque choses, il me demande un code qui debloque tout.
Cordialement et merci de votre aide

 

[Robert]

Bonjour Berto, bonjour le forum,

Aucun code sur ton fichier puisqu'il est .xlsx !... La liste que tu proposes ne correspond pas exactement aux noms des onglets !...
Bloquer c'est vague ! On peut protéger avec mot de passe ou carrément masque l'onglet...
Le code ci-dessous protège les onglets de la liste à l'ouverture du classeur avec toto comme en mot de passe. Tu adapteras :

Private Sub Workbook_Open()
Dim O As Worksheet
Dim OS As Variant

OS = Array("Données incidents", "Suivi", "détail des courses", "Courses et Voyageurs", "Calendrier", "Cumul", "Liste Motifs ")
For Each O In Worksheets
    For I = 1 To UBound(OS)
        If O.Name = OS(I) Then Worksheets(OS(I)).Protect Password:="toto"
    Next I
Next O
End Sub

 

[Staple1600]

Bonjour le fil, le forum

@Robert
Tu aurais peut-être eu plus de chance la-bas
https://www.excel-downloads.com/threads/bloquer-plusieurs-feuilles-dans-classeur.20025373/
Ah bah, non, même le fichier fait doublon

 

[Lone-wolf]

Bonjour Jean Marie, Robert, celui qui ne répond pas, le Forum

Où es-tu berto, chez Berta??

Ouuuupps! Un doublon.

 

[berto]

Bonjour Berto, bonjour le forum,

Aucun code sur ton fichier puisqu'il est .xlsx !... La liste que tu proposes ne correspond pas exactement aux noms des onglets !...
Bloquer c'est vague ! On peut protéger avec mot de passe ou carrément masque l'onglet...
Le code ci-dessous protège les onglets de la liste à l'ouverture du classeur avec toto comme en mot de passe. Tu adapteras :

Private Sub Workbook_Open()
Dim O As Worksheet
Dim OS As Variant

OS = Array("Données incidents", "Suivi", "détail des courses", "Courses et Voyageurs", "Calendrier", "Cumul", "Liste Motifs ")
For Each O In Worksheets
    For I = 1 To UBound(OS)
        If O.Name = OS(I) Then Worksheets(OS(I)).Protect Password:="toto"
    Next I
Next O
End Sub

Bonjour Berto, bonjour le forum,

Aucun code sur ton fichier puisqu'il est .xlsx !... La liste que tu proposes ne correspond pas exactement aux noms des onglets !...
Bloquer c'est vague ! On peut protéger avec mot de passe ou carrément masque l'onglet...
Le code ci-dessous protège les onglets de la liste à l'ouverture du classeur avec toto comme en mot de passe. Tu adapteras :

Private Sub Workbook_Open()
Dim O As Worksheet
Dim OS As Variant

OS = Array("Données incidents", "Suivi", "détail des courses", "Courses et Voyageurs", "Calendrier", "Cumul", "Liste Motifs ")
For Each O In Worksheets
    For I = 1 To UBound(OS)
        If O.Name = OS(I) Then Worksheets(OS(I)).Protect Password:="toto"
    Next I
Next O
End Sub

 

[berto]

Bonjour
Merci pour votre aide.
Comment il faut faire pour mettre la macro je sais pas faire ?
je vous laisse le fichier en pièce jointe.
Cordialement
Merci

 

[Robert]

Bonjour le fil, bonjour le forum,

 

[Lone-wolf]

Bonsoir Robert

@berto : un autre exemple ICI

 

[berto]

Bonjour le fil, bonjour le forum,

Bonjour Robert
Merci à vous mais pourriez-vous bloquer également la feuille données incidents ?
encore merci

 

[Lone-wolf]

Bonjour berto, Robert, le Forum

@berto: tu nas toujours pas répondu au message du post #8 ainsi que sur l'autre fil.