Déprotéger ou protéger plusieurs feuilles

Bonjour,

j ai un fichier excel qui contient 25 onglets... J aimerai une formule VBA pour ôter la protection de tte les feuilles ou les protégées d'un seul coup,!

merci d avance

Cdlt

galiax

Bonjour,

Un test. Les feuilles ont tous le mot de passe T :

Sub PROTECTION()
Dim i%
For i = 1 To Worksheets.Count
    Worksheets(i).Protect Password:="T"
Next i
End Sub

Sub DEPROTECTION()
Dim i%
For i = 1 To Worksheets.Count
    Worksheets(i).Unprotect Password:="T"
Next i
End Sub

Cdlt,

Re,

ça me fait ça :

image

une solution!

Cdlt

Bonjour,

La feuille est-elle bien protégée avec le mot de passe "T" ? Il est nécessaire que toutes les feuilles aient le même mot de passe. Par exemple dans ce fichier le code DEPROTECTION fonctionne.

Sinon merci de joindre le fichier qui poste problème, sans les données à l'intérieur je n'en ai pas besoin.

Cdlt,

75classeur1.xlsm (18.00 Ko)

Bonjour Ergotamine,

Super, j'ai mis le même mdp sur toutes les feuilles de mon fichier et maintenant ça fonctionne.

MERCI

A++

Rechercher des sujets similaires à "deproteger proteger feuilles"