Deverrouiller un champs verrouillé

Bonjour,

jai un formulaire contenant des champs. jai pu verrouiller tous les champs en passant par:
-mode creation
-selection des champs
-propriete
-verrouillé "oui"

je veux creer un bouton " modifier " pour deverrouiller tous les champs en meme temps en passant par un code vba

voila ce que jai fait mais ca marche pas. aidez moi

Private Sub Deverouillage_Click()
Dim base As Database
Set base = Application.CurrentDb
pere.unlocked = True
Nom.unlocked = True
prenoms.unlocked = True
date_naiss.unlocked = True
lieu_naiss.unlocked = True
sexe.unlocked = True
Statut.unlocked = True
Classe.unlocked = True
pere.unlocked = True
mere.unlocked = True
Contact.unlocked = True
End Sub