passeword sur une rangée de cellules

[Patrice]

Bonjour

Comment faire pour neutraliser une rangée de celllules par un mot de passe.

Pourriez vous me faire parvenir un petit programme me permettant de réalisé ce programme.

Merci d'avance Gadget-Informatique
@+

 

[Mytå]

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å