Protection cellule

[faroka]

Bonjour à vous
sur une feuille de calcul , certaines cellules sont protégées par un md, (via protection feuille) d'autres non et sont en attente d 'info par l'utilisateur et doivent rester déverouillées.
Par contre, une cellule ( par ex b3) est en attente d'un n° de téléphone , une fois le N° rentré, je voudrais que cette cellule soit verrouillée.
Dans l'attente, merci
Faroka

 

[Pierrot93]

Re : Protection cellule

Bonjour,

regarde peut être ceci, à placer dans le module de la feuille concernée, contrôle la cellule A1 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Not IsEmpty(Target) Then Target.Locked = True
End Sub

bonne journée
@+

 

[faroka]

Re : Protection cellule

Bonjour pierrot,
Négatif fonctionne pas, me renvoie message d'erreur.
Pour faciliter j'envoie une feuille de calcul en fichier joint avec explication
Merci à vous
j'espère qu'elle est bien partie ...

 

[Pierrot93]

Re : Protection cellule

Re,

perso, pas 2007 de dispo, je ne peux ouvrir ton fichier...

 

[faroka]

Re : Protection cellule

Ci_joint format excel 97 2003

 

[faroka]

Re : Protection cellule

Euh .... j'ai oublié le fichier
rebelote, le voiçi

 

[Pierrot93]

Re : Protection cellule

Bonjour,

modifie comme suit :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Not IsEmpty(Target) Then
    Me.Unprotect
    Target.Locked = True
    Me.Protect
End If
End Sub

 

[faroka]

Re : Protection cellule

Merci Pierrot
Cela fonctionne parfaitement .
Je garde cette macro de coté.
Bonne journée
Faroka