Verrouillage et déverrouillage des feuilles d'un classeur

Bonjour,

Avez vous un moyen de verrouiller et déverrouiller certains onglets (que je sélectionne manuellement) d'un classeur Excel ?

Merci d'avance

Bonjour,

Il n'est pas possible de protéger toutes les feuilles sélectionnées en une seule fois ni de protéger une feuille si plusieurs sont sélectionnées enfin, à ma connaissance bien sûr donc, passer par un tableau :

Sub Test()

    Dim Tbl() As Worksheet
    Dim I As Integer

    For I = 1 To ActiveWindow.SelectedSheets.Count

        ReDim Preserve Tbl(1 To I)
        Set Tbl(I) = ActiveWindow.SelectedSheets(I)

    Next I

    'supprime la sélection multiple
    Worksheets(1).Select

    'protège ou dé-protège les feuilles
    For I = 1 To UBound(Tbl)

        Tbl(I).Protect 'ou Tbl(I).Unprotect

    Next I

End Sub

Merci Theze,

Je vais le test