passeword sur une rangée de cellules

salut Patrice et le Forum

Une petite macro a inserer dans le module de la feuille

Option Explicit
Public password As Boolean
Public MyValue As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Left(ActiveCell.Address, 3) = "$B$" And password = False Then
MyValue = InputBox("Entrer le mot de passe :")
Else
If Left(ActiveCell.Address, 3) <> "$B$" Then password = False
Exit Sub
End If
If MyValue = "bravo" Then
password = True
Else
password = False
Range("A1").Select
End If
End Sub

Mytå