ô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

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