bloquer onglets avec code

Robert à dit:

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 :

VB:

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

Cliquez pour agrandir...

Robert à dit:

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 :

VB:

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

Cliquez pour agrandir...

Robert à dit:

Bonjour le fil, bonjour le forum,

Cliquez pour agrandir...