Autres Code pour ôter la protection des feuilles

[ecluse105]

Bonjours, j'ai mis un code que j'ai trouver sur internet pour mettre la protection a toute les feuilles de mon classeur et à chaque fois que je cliquette sur mon bouton il me demande de taper un code et de le confirmer et la tout est OK, ma protection est mise en place. Mais ce que je voudrais faire c'est que lorsque j'appuie sur un autre bouton je puisse qu'il me demande à nouveau le même code que j'ai taper et qu'il enlève la protection de toutes mes feuilles de mon classeur;
Voici mon code ci-dessous.
En attente de réponses merci

Sub protect_all_sheets()
top:
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
GoTo top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass
Next
Exit Sub
oops: MsgBox "Je pense que vous avez des feuilles qui sont déjà protégées. Veuillez déprotéger toutes les feuilles avant d'exécuter cette macro."
End Sub

 

[herve62]

Bonsoir
Normalement avec :
ActiveSheet.Unprotect "mdp"
Généralement on met le Mdp dans la macro , si les utilisateurs n'y connaissent rien
Sinon faut lemettre en variable suite à input box par exemple

 

[Eric C]

Bonsoir ecluse105, bonsoir Hervé

Un exemple qui devrait te convenir.
Bonne nuit à toutes & à tous
@
+ Eric c

 

[Eric C]

Re,

Une autre version avec un seul bouton qui protège et déprotège.
@+ Eric c

 

[ecluse105]

Merci Eric, la première version me convient très bien.