XL 2016 Textbox protéger lors de la consultation

Private Sub LoquerTextBox(bLocked As Boolean)
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.TextBox Then
            ctl.Locked = bLocked
            '
            ' Les textbox pourront ou non être atteint
            ctl.Enabled = Not bLocked ' Facultatif
        End If
    Next
End Sub

Sub Consultation()
    With F_Consult
        .LoquerTextBox True
        .Show
    End With
End Sub

Sub Edition()
    With F_Consult
        .LoquerTextBox False
        .Show
    End With
End Sub

Private Sub B_ajout_Click()
'f= Sheets("bd")
  ligneEnreg = f.[a65000].End(xlUp).Row + 1 '1ère cellule vide en colonne A
Me.enreg = ligneEnreg
'on efface les valeurs dans les contrôles ci-dessous
  Me.nom = ""
  Me.Marié = False
  Me.Date_naissance = ""
  Me.Service = ""
  Me.Ville = ""
  Me.Salaire = ""
  For j = 0 To Me.Loisirs.ListCount - 1: Me.Loisirs.Selected(j) = False: Next j
  Me.nom.SetFocus '<- donc ici cela te mène sur le TextBox nom
End Sub

Private Sub B_suivant_Click()
 If Me.CléCherchée.ListIndex < Me.CléCherchée.ListCount - 1 Then
   Me.CléCherchée.ListIndex = Me.CléCherchée.ListIndex + 1
   Me.nom.Locked = True ' ajout
  End If
End Sub
Private Sub b_précédent_Click()
  If Me.CléCherchée.ListIndex > 0 Then
    Me.CléCherchée.ListIndex = Me.CléCherchée.ListIndex - 1
    Me.nom.Locked = True ' ajout
  End If
End Sub

Private Sub CléCherchée_Click()
   ligneEnreg = f.[A:A].Find(Me.CléCherchée, LookIn:=xlValues).Row
   Me.enreg = ligneEnreg
   Me.nom = f.Cells(ligneEnreg, 1)
   Me.nom.Locked = True '< -ajout
   Me.Marié = f.Cells(ligneEnreg, 3)
[...]
End Sub

Private Sub UserForm_Initialize()
Dim c As Control
   Set f = Sheets("bd")
   lignefin = f.[a65000].End(xlUp).Row
   If lignefin > 2 Then
     Clé = f.Range("A2:A" & f.[a65000].End(xlUp).Row)
     Tri Clé, LBound(Clé), UBound(Clé)
     Me.CléCherchée.List = Clé
     Me.CléCherchée.ListIndex = -1
   Else
     If lignefin = 2 Then Me.CléCherchée.AddItem f.Range("A2")
   End If
   Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
   Me.Loisirs.List = Array("Lecture", "Cinéma", "Vélo", "Natation", "Internet")
   'ajout ------------------------
   For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            c.Locked = True
        End If
    Next
    ' fin ajout ------------------
   B_ajout_Click
End Sub