protection de feuilles

salut,

Voila le code pour deproteger et proteger les feuilles en meme temps


Option Explicit
Sub DeprotectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect password:="ton mot de passe"
On Error GoTo sortie
Suite:
Next Feuil
Exit Sub
sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub



Option Explicit
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect password:="ton mot de passe"
Next Feuil
End Sub


A+

Jpierre

Bonjour Jpierre,

Application.ScreenUpdating = False

j'en ris encore tellement c'est simple et tellement je me suis énervé hier.

Merci Beaucoup, Muchas Gracias, Muito Obrigado...

Robert