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
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+
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