Re,
Je ne vois pas de solution sans passer par macro. Toutefois vérifie ce que Thibo vient de poster au sujet d'excel 2003. Plus simple sans macro évidement.
Sinon suis ces indications :
- ALT + F11 par aller en VBA
- CTRL + R pour accédér à VBA poreject à gauche
- double clique sur la feuille concerant ce que tu demandes
- A droite place cette macro puis enregistre ton fichier
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'macro par Dan le 27/09/07
Select Case Range("D6")
Case Is <> 0
With ActiveSheet
.Unprotect Password:="ttt"
.Range("E6").Locked = True
.Protect Password:="ttt"
Exit Sub
End With
Case Else
With ActiveSheet
.Unprotect Password:="ttt"
.Range("E6").Locked = False
.Protect Password:="ttt"
End With
End Select
End Sub
J'ai mis un mot de passe --> ttt
Il est évident que tu peux le changer mais sache qu'il est toujours possible pour une personne de le trouver.
Si cela n'est pas important, tu peux le laisser à blanc.
A te lire
Dan