Discussion :

[jcderchain]

Bonjour,

j'utilise le code suivant pour proteger mes feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
    With Sheets(i)
      .EnableOutlining = True
      .Protect Password = "JCD", contents:=True, userInterfaceOnly:=True
    End With
Next i
End Sub

Très bien les feuilles sont donc protégés.
Lorsque je déprotége une feuille dans lemenu avec le mot de passe JCD, celle ci ne se déprotége pas.

Que ce passe t'il ? pourquoi la feuille est toujours protéger ?
Si j'utilise VBA pour déprotéger une feuille c'est bien dévérouiller avec le password JCD, mais je ne souhaite pas utiliser VBA pour déprotéger une feuille.

[JPierreM]

Bonjour,

la bonne synthaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Protect Password := "JCD", contents:=True, userInterfaceOnly:=True

Il manquait : après Password

JP

[jcderchain]

Merci,

c'était cela effectivement.

Merci