protection

Bonjour m-menard,

Sub proTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub

Sub unproTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub


ChrisV


"m-menard" <m-menard@wanadoo.fr> a écrit dans le message de news:
4248fd3d$0$3147$8fcfb975@news.wanadoo.fr...

Bonjour
SVP comment protéger et déprotéger en même temps toute les feuilles d'un
classeur ?
Merci