XL 2010 Lever la protection de toutes les feuilles

[ROBERTS]

Bonjour,
J'ai installé une macro avec mot de passe pour protéger plusieurs feuilles en même temps
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 "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro."
End Sub

Mo problème avoir une autre macro qui me permette de lever la protection de toutes les feuilles et toujours avec le même mot de passe
Qui a la solution ?

Merci
ROBERTS

 

[Eric C]

Bonjour le forum
Bonjour ROBERTS

J'ai repris ton pass pour le code :

Sub Unprotect()
top:
Dim ws As Worksheet
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
GoTo top
End If
For Each ws In Worksheets
ws.Unprotect Password:="pass"
Next ws
End Sub

@+ Eric c

 

[ROBERTS]

Génial
Un grand merci c'est la première fois que je travaille avec le site c'est top
Par contre j'ai du saisir mon mot de passe en clair dans la macro ?
Sub Unprotect()
top:
Dim ws As Worksheet
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
GoTo top
End If
For Each ws In Worksheets
ws.Unprotect Password:="JRO"
Next ws
End Sub
Sinon il affiche le message suivant

Mon mot de passe est donc accessible par la macro
Une solution ?

 

[Jacky67]

Bonjour à tous,
Cela pourrait ressembler à la pj
Mot de passe==> toto
Les feuilles sont protégées à l'ouverture du classeur par:

Private Sub Workbook_Open()
    Dim SH As Worksheet
    For Each SH In ThisWorkbook.Worksheets
        SH.Protect "toto"
    Next
End Sub

 

[ROBERTS]

Merci,
Je teste demain.