Feuilles protegées par mot de passe et dissocier

Bonjour,

J'ai un fichier excel que les maitres d’œuvre utilisent pour faire des propositions de paiement.

Ce fichier est protégé contre les modifications par un mot de passe ("CRF"). J'ai fait des boîtes de regroupement qui sont inaccessibles quand le fichier est verrouillé.

J'ai trouvé des macros sur le site que je n'arrive pas à faire fonctionner

ex :

Option Explicit
Private Sub Workbook_Open()
Dim N As Long, i As Long
    N = ThisWorkbook.Sheets.Count
    For i = 1 To N
        With ThisWorkbook.Sheets(i)
            .EnableAutoFilter = True
            .EnableOutlining = True
            .Protect Contents:=True, _
                     UserInterfaceOnly:=True, _
                     AllowFiltering:=True
        End With
    Next i
End Sub

mais je n'arrive pas à la faire fonctionner. Il y a sans doute quelque chose que je ne fais pas mais je ne sais pas quoi .

Si une bonne âme pouvait m'aider ?

Merci d'avance.

Je te propose de mettre une condition après

For i = 1 to N
if worksheets(N).Protect =true...

Sinon, reformule ta question.

je me rends compte que dès l'ouverture on doit Mettre 7 fois le mot de passe

ce qui serait fatiguant

Bonjour

Ton fichier en retour.

Cdlt.

Private Sub Workbook_Open()
Dim N As Long, i As Long
    N = ThisWorkbook.Sheets.Count
    For i = 1 To N
        With ThisWorkbook.Sheets(i)
            .EnableAutoFilter = True
            .EnableOutlining = True
            .Protect Password:="CRF", _
                     Contents:=True, _
                     UserInterfaceOnly:=True, _
                     AllowFiltering:=True
        End With
    Next i
End Sub

Jean-Eric, Natlhalie Charette, merci beaucoup pour vos réponses.

cela venait du fait que chaque feuille était protégée une par une ? (à ce moment là mieux vaut protéger le classeur ? )

En tout merci beaucoup je vais pouvoir avancer dans mon projet