Comment protéger toutes les feuilles excel

Fermé

Emmalice - 5 déc. 2011 à 12:26
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 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:

Comment protéger toutes les feuilles excel
Liste déroulante excel - Guide
Proteger cellule excel - Guide
Formule excel - Guide
Fusionner feuilles excel - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
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

Discussions similaires

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters