ô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




A voir également:

2 réponses

Réponse 1 / 2
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
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
noila59216 Messages postés 34 Statut Membre
 
merciiiiiiiiiiiii
j'fais ça demain .....
0
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