Re : macro verrouillage déverouillage
Bonsoir Caline,
Sans trahir MDF, que je salue, il te faut mettre ce code dans un module standard.
1- Si dans l'éxécution d'une macro, tu dois déprotéger les feuilles de ton classeur, il te suffit d'ajoute "DeverrouilleFeuilles" dans le code.
2- Si dans l'éxécution d'une macro, tu dois reprotéger les feuilles de ton classeur, il te suffit d'ajoute "VerrouilleFeuilles" dans le code.
Dans le code en dessous, le mot de passe est "***", trois étoiles.
Sub Protection(Verrouille As Boolean)
Dim F As Worksheet
For Each F In Worksheets
If Verrouille Then
F.Protect Password:="***"
Else
F.Unprotect Password:="***"
End If
Next F
End Sub
Sub VerrouilleFeuilles() 'Pour protéger les feuilles
Protection True
End Sub
Sub DeverrouilleFeuilles() 'Pour déprotéger les feuilles
Protection False
End Sub
Cordialement
Bernard
Oupss, bonsoir Dan, encore doublé...