Comment protéger toutes les feuilles excel

Question

Bonjour, 

Est ce qu'il y aurait un moyen de protéger toutes les feuilles d'un classeur excel (500 feuilles) toutes modif impossible sauf sur le première feuilles sans pour autant protéger feuille par feuille ??

Merci pour vos réponses 

Configuration: Windows 7 / Internet Explorer 8.0

eriiic · Answer

Bonjour,

Sub ProtégerFeuilles()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "Feuil1" Then
            sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    Next sh
End Sub

eric

Comment protéger toutes les feuilles excel

1 réponse

Votre réponse

Discussions similaires

Newsletters