code macro

[lemak]

Bonjour à tous
Bonjour le forum
J’ai un classeur de 3 feuilles, qui peut trouver le code de la macro suivant cette formule :
Si la cellule A1 de la feuille3 = vrai, la cellule B10 de la même feuille est déverrouillée, si = faux la cellule est verrouillée. Merci d’avance

 

[ERIC S]

Bonjour

a essayer

Sub essai()
ActiveSheet.Unprotect
If LCase(Sheets(3).Range('B1').Value) = 'vrai' Then
Sheets(3).Range('B10').Locked = True
Else
Sheets(3).Range('B10').Locked = False
End If
ActiveSheet.Protect

End Sub

si tu modifies B1 à la main n'oublie pas de la déverrouiller
A+

 

[lemak]

Bonjour Eric S
Bonjour le forum
merci pour votre aide,mais j'ai trouver un probleme,quant je clic sur ôter la protection de la feuille,Excel ne demande pas le mot de passe,la feuille est ôter sans mot passe

 

[ERIC S]

re

dans la macro proposée, il n'y a pas de mot de passe

regarde l'aide de protect et unprotect (argument password)

A+