IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

Protéger toutes les feuilles d'un classeur [XL-2010]


Sujet :

Excel

  1. #1
    Membre régulier
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Juin 2013
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : Juin 2013
    Messages : 119
    Points : 76
    Points
    76
    Par défaut Protéger toutes les feuilles d'un classeur
    Bonjour,
    En excel 2002, j'utilisais une macro pour protéger toutes les feuilles d'un classeur. Cette macro fonctionne toujours sous excel 2010
    J'ai vu que dans le menu "fichier", on voyait la totalité des feuilles protégées et que l'on pouvait déprotéger par cet onglet et je me suis dis qu'il y avait peut être une nouvelle astuce pour protéger ou déprotéger toutes les feuilles en même temps.
    Merci par avance.

    Valérie

  2. #2
    Membre expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 477
    Points : 3 864
    Points
    3 864
    Par défaut
    Bonjour,

    Pour protéger et déprotéger d'un seul coup, la macro est toujours le plus simple moyen. Moi, j'utilise ceci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Protection()
    For i = 1 To Sheets.Count
         Sheets(i).Protect Password:="Mon mot de passe"
    Next
    End Sub

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub OterProtection()
    For i = 1 To Sheets.Count
         Sheets(i).Unprotect Password:="Mon mot de passe"
    Next
    End Sub

  3. #3
    Membre régulier
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Juin 2013
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : Juin 2013
    Messages : 119
    Points : 76
    Points
    76
    Par défaut
    Bonsoir QuestVba,

    C'est effectivement la macro que j'ai et qui fonctionne très bien.
    Il n'y a donc pas d'autre solution.
    Merci pour ta participation.
    A+
    Valérie

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 06/05/2008, 16h05
  2. Débutant: Application à toutes les feuilles d'un classeur
    Par spirit1300 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 06/12/2007, 09h19
  3. effacer toutes les feuilles d'un classeur commencant par "GRAPH"
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/11/2007, 19h40
  4. Comment parcourir toutes les feuilles d'un classeur excel?
    Par Subkill dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/02/2007, 20h47
  5. Action sur toutes les feuilles d'un classeur
    Par beurnoir dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 23/12/2005, 15h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo