VBA - Inscription automatique de la date dans une cellule protégée

Bonjour,

J'utilise en ce moment un code VBA (trouvé sur ce forum) qui inscrit automatiquement la date et l'heure dans une cellule (B) lorsqu'il y a une saisie dans celle d'à coté (A).

''''*****

Private Sub Worksheet_Change(ByVal Target As Range)

Dim isect As Range, c As Range

Set isect = Intersect(Target, [a:a])

If Not isect Is Nothing Then

For Each c In isect.Cells

If IsEmpty(c.Offset(0, 1)) Then

c.Offset(0, 1) = Now

End If

Next

End If

End Sub

'''******

J'aimerai ajouter une protection sur la feuille afin qu'il ne puisse pas y avoir de modifications "manuelles" dans la cellule (B) seulement le VBA m'indique un message d'erreur.

erreur

Lorsque j'ouvre le débogueur, une ligne du code est surlignée (j'imagine celle qui pose problème).

debogueur

Mon problème :

N'y connaissant rien en VBA, je sollicite votre aide pour modifier ce code afin d'y ajouter les actions :

  • "retirer la protection"
  • "saisir la date automatiquement"
  • "remettre la protection"

J'espère avoir détaillé assez précisément ma demande et vous remercies d'avance pour votre aide !

*EDIT* : ajout de l'exemple

4exemple.xlsm (13.60 Ko)

Bonjour,

Le mode d'emploi et sur la feuille.

Bonjour,

C'est exactement ce dont j'avais besoin !

Je clos le sujet.

Un grand merci pour cette réponse claire et précise !

Rechercher des sujets similaires à "vba inscription automatique date protegee"