Verrouiller des feuilles de classeurs sauf une

Bonjour a tous

Je cherche a protéger mes feuilles de classeurs sauf une, mais je ne sais pas comment faire voici ma matrice

Sub Verrouiller()

For i = 1 To Sheets.Count

With Sheets(i)

.Protect Password:="bla", DrawingObjects:=True, Contents:=True, Scenarios:=True

.EnableSelection = xlUnlockeldCells

End With

Next

End Sub

Quelqu'un a t il une solution?

Merci

Bonjour,

Si la feuille à ne pas protéger est sheets(1) , commences la boucle i=2 to sheets.count.

mais attention sheets(i) donne le numéro de la feuille, ce n'est pas le nom de la feuille (voir éditeur vba);

Cdlt

Bonjour

Essayes

Sub Verrouiller()
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Page à ne pas verrouiller" then
      With Sheets(i)
        .Protect Password:="bla", DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlUnlockeldCells
      End With
    End If
  Next
End Sub

A toi de préciser le nom exact de "Page à ne pas verrouiller"

Merci de votre aide et de votre réactivité.

Par contre ma macro fonctionnait très bien quand je l'ai crée mais depuis que je l'ai copié dans le bon classeur il me dit que la valeur i n'est pas définie. Je ne comprend pas pourquoi....

Bonjour

Surement dans le module tu as (1ère ligne)

Option Explicit

Rajoutes en début de macro

    Sub Verrouiller()
Dim i as Integer

      For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Page à ne pas verrouiller" then
          With Sheets(i)
            .Protect Password:="bla", DrawingObjects:=True, Contents:=True, Scenarios:=True
            .EnableSelection = xlUnlockeldCells
          End With
        End If
      Next
    End Sub

MERCI encore une fois de ton aide

MERCI encore une fois de ton aide