Placering af Unprotect og Protect (ark)

Hej
Jeg har følgende formel hvor jeg ønsker at kunne have et beskyttet ark, men aligevel tillade, at en Userform tilføjer data.
Jeg kan ikke finde ud af, hvor jeg skal placere en ordre om at fjerne beskyttelse, samt når data er placeret genetablere beskyttelse.

Formlen er som følger:

Private Sub cmbGået_Click()
Dim D As Variant
    Worksheets(lstcNavne.Column(1)).Activate ' i lstcNavne.Column(1) ligger navnene på arket, det er det der står i B kolonnen i Arket Info
D = Range(Range("A1"), Range("A65536").End(xlUp))
  For i = 1 To UBound(D) ' sætter det valgte arks datoer ind i en variabel
  If D(i, 1) = DateValue(Dato) Then ' finder datoen, der passer
  col = 3
 
  Do
  If IsEmpty(Cells(i, col)) Then ' tjekker om cellen er tom, hvis ikke, tjekkes næste start kolonne
  Exit Do
  End If
  col = col + 2
  Loop
 
  Cells(i, col) = Now ' sætter tiden i kolonne B
  Exit For
  End If
  Next
    Unload Me
End Sub

Håber som sædvanlig på hjælp ;-)
MVH
Ups