Cellules verrouillées mais changements possibles après réouverture

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("c2:J2" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
      If MsgBox("Voulez-vous verrouiller cette donnée ?", vbQuestion + vbYesNo, "Protection") <> vbYes Then Exit Sub
      ActiveSheet.Unprotect
      Target.Locked = True
      Target.FormulaHidden = True
      ActiveSheet.Protect
    End If
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("a2:h" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then
  On Error GoTo fin
      If Target <> "" Then
      MsgBox "Vous n'êtes pas autorisé à modifier les données !", , "Protection"
      Target.Locked = True
      Target.FormulaHidden = True
      ActiveSheet.Protect
      Else
    ActiveSheet.Unprotect
    End If
    End If
fin:
Exit Sub
Application.DisplayAlerts = False
Activeworkook.Save
End Sub