Verrouiller une celulle

[abc]

Bonsoir,
j'ai copier un code VBA qui me verrouille automatiquement la cellule de la colonne B, dés que j'introduis une donnée dans la colonne B ,il est impossible de la modifiée.
Dim témoin As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B13], Target) Is Nothing And Target.Count = 1 And Not témoin Then
témoin = True
ActiveSheet.Unprotect
Target.Locked = True
Target.Interior.ColorIndex = 44
ActiveSheet.Protect
témoin = False
End If
End Sub
Malheureusement il ne fonctione pas ,ou est l'erreur.
Merci d'avance

 

[Modeste]

Re : Verrouiller une celulle

Bonsoir abc, le forum,

- vérifier, avant de protéger la feuille, que les cellules de la colonne B sont déverrouillées, puisque, si la feuille est protégée au départ, tu ne sais forcément rien encoder
- vérifier que tu as placé le code dans la feuille concernée
- la macro ne s'exécutant que sur la plage de B2 à B13, elle ne fonctionne que quand tu encodes dans cette plage.

Si aucune des 3 pistes n'est exploitable, merci d'être plus précis que:

ça ne fonctionne pas. Où est l'erreur ?

Testée sur ma machine, elle fonctionne

Modeste

 

[abc]

Re : Verrouiller une celulle

Bonsoir,
oui,lorsque je ôte la protection de la feuille cela fonctione.
Mais dés que j'introduis un donnée dans la colonne B le problème revient.
Merci d'avoir répondu.
A +

 

[Modeste]

Re : Verrouiller une celulle

re

Désolé, mais ce n'est pas beaucoup plus explicite, comme tu viens de le formuler.

Modeste

 

[abc]

Re : Verrouiller une celulle

Bonsoir,
après réflextion je repose ma question autrement,
ce que je souhaite a l'ouverture du fichier
- workbook open
-la colonne B est vérrouillée
-si je clic sur une celulles de la colonne B un MSGbox apparait et me demande un mot de passe pour déverrouillé la colonne B
-si le mot de passe est correct la colonne B est déverrouillée et je peux la modifiée
-sinon erreur ou recommencer ou sortie
- a la fermeture du fichier ,je vérrouille la colonne B automatiquement
Ma question est ,comment traduire en VBA.
Merci d'avance

 

[abc]

Re : Verrouiller une celulle

Bonjour,
Erreur de mots
-si je clic sur une celulles de la colonne B un Imputbox apparait et me demande un mot de passe pour déverrouillé la colonne B

une petite proposition serait la bien venue
Merci d'avance
A +