[resolu] Protection/déprotection par VBA

[cissou69]

Bonjour,

Le sujet a été largement abordé sur le forum mais je n'ai pas trouvé la réponse exacte à mon problème.
Je souhaite simplifier la tache de protection en utilisant une macro qui protège toutes les feuilles en un clic. Le mot de passe est écrit dans le code.
Pour la déprotection de toutes les feuilles en simultanée, je souhaiterais qu'une boite de dialogue apparaisse une seule fois et déprotège tous les onglets.

Aujourd'hui, j'ai essayé le code ci-dessous mais la boite de dialogue apparait pour chaque feuille.

S'il est possible avec un seul même bouton de protéger/déprotéger toutes les feuilles, je suis aussi preneur.

Private Sub CommandButton1_Click()

Dim s As Worksheet

For Each s In Worksheets
    s.Unprotect
Next s

End Sub

Merci d'avance

Cyril

 

[Pierrot93]

Re : Protection/déprotection par VBA

Bonjour,

essaye ainsi :

Private Sub CommandButton1_Click()

Dim s As Worksheet

For Each s In Worksheets
    s.Unprotect "toto"
Next s

End Sub

déprotège tes feuille en envoyant le mot de passe, en l'occurence "toto"...

bon après midi
@+

 

[cissou69]

Re : Protection/déprotection par VBA

Bonjour Pierrot,

Le but de la déprotection est la saisie du mot de passe par l'utilisateur...
Donc je ne veux pas que ce dernier soit écrit dans le code.

 

[Pierrot93]

Re : Protection/déprotection par VBA

Re,

regarde du coté d'une "inputbox" alors.. mais il faudra bien à un moment, comparer cette saisie.... A noter qu'un projet vba peut se protéger, avec plus ou moins d'efficacité, il est vrai....

 

[Pierrot93]

Re : Protection/déprotection par VBA

Re,

regarde ceci, avec une "inputbox", mais le code est dans le code... donc protége également le projet vba, dans l'éditeur vba => barre de menu => Outils => propriété de vbaproject => onglet "protection" tu coches "verouiller le projet pour l'affichage" et tu mets un mot de passe...

Dim s As Worksheet, m As Variant
m = InputBox("Mot de passe ?")
If m <> "toto" Then Exit Sub
For Each s In Worksheets
    s.Unprotect m
Next s

 

[cissou69]

Re : Protection/déprotection par VBA

Re,

Merci Pierrot !!
L'histoire de l'inputbox fonctionne très bien 😉

Question supplémentaire est-il possible de coder un bouton qui puisse à la fois protéger ou déprotéger toutes les feuilles ?

Merci,

 

[Pierrot93]

Re : Protection/déprotection par VBA

Re,

essaye ceci :

Private Sub CommandButton1_Click()
Dim s As Worksheet, m As Variant
m = InputBox("Mot de passe ?")
If m <> "toto" Then Exit Sub
For Each s In Worksheets
    If s.ProtectContents Then s.Unprotect m Else s.Protect m
Next s
End Sub

 

[cissou69]

Re : Protection/déprotection par VBA

Désolé, je n'ai pas pu revenir vendredi soir et répondre.
Merci Pierrot pour ce "if" qui me manquait...

Cependant, j'ai intégré ce code dans un Userform avec tout ce qu'il faut.

Merci encore,
Bonne journée,

Cissou