j'ai trouvé une maccro qui conviendrait si à la place du message "Impossible de sélectionner cette cellule" il y aurait une demande de mot de passe qui bloquerait ou autoriserais les modifications si il est rentré juste ou non :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim plage as range
Set plage = Range("A1:H1")
If Not Application.Intersect(Target, plage) Is Nothing Then
If Not IsEmpty(Target) Then
MsgBox "Impossible de sélectionner cette cellule"
Target.Offset(1, 0).Select
End If
End If
End Sub