[FONT=monospace]Private Sub CommandButton1_Click()
If TextBox1.Text = "toto" Then 'mot de passe = toto
ActiveSheet.Unprotect Password:="protonglet"'ôter la protection
Range("Ta_plage").Locked = False 'déverrouille la plage
ActiveSheet.Protect Password:="protonglet"'remet la protection
End If
UserForm4.Hide ' fermer la userform
End If