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

[vleverne]

Bonjour,

Dans mon fichier, les cellules se verrouillent automatiquement après la saisie. Toutefois, j'aimerais que celles-ci restent verrouillées après l'enregistrement et la fermeture du fichier.

Il s'agit d'un fichier que plusieurs personnes doivent effectuer la saisie. La personne no2 doit voir ce que la personne no1 a écrit, mais ne doit pas pouvoir aller modifier les données enregistrées.

Que me manque t'il?

Merci de votre précieuse aide.

 

[jpb388]

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

Bonjour à tous

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

 

[Lone-wolf]

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

Bonjour à tous 🙂

Une légère modification

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

A+ 😎

 

[vleverne]

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

Merci merci merci!!! Vous êtes formidable!