Comment protéger toutes les feuilles excel

Fermé
Emmalice - 5 déc. 2011 à 12:26
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 - 5 déc. 2011 à 14:21
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

A voir également:

1 réponse

eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 7 168
5 déc. 2011 à 14:21
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
0