Comment protéger toutes les feuilles excel

Fermé
Emmalice - 5 déc. 2011 à 12:26
eriiic Messages postés 24467 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 1 décembre 2022 - 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 24467 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 1 décembre 2022 7 143
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