ôter protection de plusieurs feuilles (ici 150)

Résolu
noila59216 Messages postés 34 Statut Membre -  
noila59216 Messages postés 34 Statut Membre -
Bonjour,
est il possible d'ôter la protection de 150feuilles d'un seul coup ???? j'en ai qui sont déjà ôter mais pas toutes .... merci de votre aide

2 réponses

  1.
    titeufdu89 Messages postés 387 Statut Membre 38
     
    Bonjour Noila,

    Colle le code suivant dans un module de ton fichier et lance la macro depuis "Macro" dans l'onglet "Developpeur", il ôtera la protection de chacune des feuilles de ton classeur. 

    Sub deproteger()
Dim ws As Worksheet

For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Unprotect
Next i

End Sub


    Bonne journée

    Jc
    1
    1. titeufdu89 Messages postés 387 Statut Membre 38
       
      Petit précision, dès lors qu'un classeur contient des macros (automatisation), il convient d'enregistrer le classeur au format XLSM (prenant en charge les macros) donc enregistre-sous ton classeur au bon format pour pouvoir utiliser cette macro.

      Jc
      0
    2. noila59216 Messages postés 34 Statut Membre
       
      merciiiiiiiiiiiii
      j'fais ça demain .....
      0
    3. noila59216 Messages postés 34 Statut Membre
       
      yess ça marche ... j'espère que je saurais le refaire ultétrieurement
      0

Discussions similaires

[google sheets] protection de plages
papafab73 -
eriiic -

10 réponses
comment retirer la protection d'un fichier excel 2016
de-padou-2000 -
Patrice33740 -

1 réponse
Enlever la protection dans un document libreoffice writer
jo -
Edawards -

1 réponse
Oter la protection de plusieurs feuilles à la fois excel 2013
Limonade -
Na2s2O3 -

4 réponses
Ôter la protection de centaines de feuille Excel.
SuperPat -
carmenita -

3 réponses
Ôter la protection d'un classeur Excel
Fox -
Meduse56 -

12 réponses