Worksheet_Change secondaire privé (cible de ByVal comme gamme)
Sur l'errHandler GoTo d'erreur
Application.EnableEvents = faux
Si Target.Column = 12 et Target.Count = 1 puis
Appel UnProtect
Si le "" <> de Target.Value rame alors (Target.Row). Verrouillé = rectifier
L'appel se protègent
Autrement
Finir si
de finition :
Application.EnableEvents = rectifient
Sortir le sous-marin
errHandler :
MsgBox Err.Number et « - » et Err.Description
Résumé fini
Sous-marin d'extrémité
|