Autres Code pour ôter la protection des feuilles

ecluse105

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll