VBA - Fonction verrouillage de cellule après saisie

[Antoine_SIG]

Bonjour,
J'ai créé la macro suivante :
---
Private Sub Worksheet_Change(ByVal Target As Range)
' Affiche la date en colonne 3 lorsque la colonne 1 est modifiée

If Target.Column = 1 Then
Cells(Target.Row, 3).Value = Now
End If

End Sub
---
Elle me permet d'avoir automatiquement en colonne 3 la date de saisie effectuée dans la cellule 1.

Mon problème est le suivant : j'ai besoin de protéger la colonne 3 et d'en verrouiller les cellules. Mais, en les verrouillant, VBA estime que je ne peux plus rien saisir à l'intérieur et la macro plante donc.

Comment pourrais-je contourner ce problème ?
Ma macro pourrait-elle être complétée pour dire à VBA :
"Dans la cellule C1, saisie la date de modification de la cellule A1, puis verrouille la celulle C1".

Merci d'avance.

Antoine

 

[ERIC S]

Re : VBA - Fonction verrouillage de cellule après saisie

Bonjour

en VBA
dans "thisworkbook"

Private Sub Workbook_Open()
Sheets("toto").Protect userinterfaceonly:=True
End Sub

à adapter selon ton nom de feuille

 

[Antoine_SIG]

Re : VBA - Fonction verrouillage de cellule après saisie

Merci c'est exactement ça.
Bonne fin de journée