Discussion :

[lg5675]

Bonjour,

Pouvez vous m'expliquer comment je pourrais faire une macro vba afin de protéger, avec un mot de passe, l'ensemble de mes onglets de mon fichier Excel en respectant les caractéristiques de la protection de mes feuilles ?
(ctd cocher uniquement "Sélectionner les cellules déverrouillées", lors du paramétrage de la protection de mes feuilles).

J'ai beau chercher, je ne trouve pas la solution !

Merci de votre aide

[Marc-L]

Bonjour,

l'effectuer manuellement en utilisant l'Enregistreur de macros livre la base du code sur un plateau pourtant ‼

Ensuite par exemple pour boucler sur les feuilles : For Each Ws in ActiveWorkbook.Worksheets …

[lg5675]

Oui c'est ce que j'ai déjà fait !
Sauf que le pbl c'est qu'il ne me demande pas de mot de passe,
cependant comme je l'ai précisé, je souhaite mettre un mot de passe pour la protection de mon fichier.

Et en plus ca ne prend pas en compte tout mes paramètres de protection de mes feuilles !

As-tu un idée ?

Merci

[keygen08]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Proteger()
'Ctrl maj P
 ActiveSheet.Protect Password:=("motdepasse")', DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Sub Depro()
'Ctrl maj D
ActiveSheet.Unprotect Password:=("motdepasse")
End Sub

Perso, j'active le mot de passe quand j'active la feuille, ceci me permet, au besoin, d'ecrire dans
les autres feuilles par VBA sans avoir a gerer tout le temps la protection ouu non protection

[lg5675]

Merci beaucoup pour ton aide !!