Verouillage Automatique d'une cellule après une sauvegarde

Bonjour,

J'aimerais savoir si ils est possible de crée une macro qui permet de verrouiller une cellule qui a été remplis par un utilisateur lorsque l'on clic sur enregistré ou que l'on face un ctrl+s et que si le mème utilisateur ré-ouvre le fichier il puisse modifier de nouveau sa cellule sens avoir a faire quelque chose ?

Merci de vos réponse

Salut,

Pour verrouiller c'est pas compliqué.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' // Help de chez Microsoft
    Worksheets("Sheet1").Range("A1:G37").Locked = True
    Worksheets("Sheet1").Protect
End Sub

Par contre pour l'attribuer à un utilisateur cela sera un peu plus compliqué. tu devra écrire quelque part le nom de l'utilisateur et les cellules qu'il à modifié. Ensuite à l'ouverture du classeur tu devra récupérer le nom de l'utilisateur. et voir les cellules qui lui sont attribué.

Pour trouver le nom de l'utilisateur :

strUserName = Split(Environ("UserName"),"=")(1)