Sub OterProtection()
On Error Resume Next
[COLOR="Red"]If Application.CountIf(Range("Utilisateur"), Environ("UserName")) Then
Range("Base").Parent.Unprotect [MDP]
Exit Sub
End If[/COLOR]
Dim v
v = Range("Base").Parent.Unprotect
If v = "" Then MsgBox "Mot de passe incorrect !", 48: End
If v = False Then End
End Sub