Protection feuilles

Bonsoir à tous

J'aurais besoin d'un peu d'aide.

J'ai crée un classeur excel avec environ 50 feuilles, et j'aurais aimé pouvoir toutes les protéger en même temps contre l' écriture et les modifications ; ou encore mieux, avoir le choix à l'ouverture du classeur des feuilles que l'on veut protéger, déprotéger ou laisser telle quelle (en utilisant un mot de passe).

merci de vos réponses par avance

steph

Bonjour,

Dans le ThisWorkbook

à l'ouverture, toutes les feuilles seront protégées sauf celles indiquées sur cette ligne

NoProt = Array("Feuil1", "Feuil2", "Feuil3") 'feuilles à ne pas protéger

mot de passe (ici "dudu" à adapter)

Private Sub Workbook_Open()
Dim i As Byte, NoProt
    Application.ScreenUpdating = False
    NoProt = Array("Feuil1", "Feuil2", "Feuil3") 'feuilles à ne pas protéger
    For i = 1 To Worksheets.Count
        If IsError(Application.Match(Worksheets(i).Name, NoProt, 0)) Then
            Worksheets(i).Protect Password:="dudu"
        End If
    Next
End Sub

Amicalement

Claude

Bonjour,

Je suis désolé je crois que j'ai oublié de préciser que j'avais excel2010 ; et ca ne marche pas...

re,

Qu'est-ce qui ne marche pas ?

cette macro ne fait que protéger certaines feuilles,

à toi de formater les cellules (verrouillées ou non)

Claude