Oui normalement c'est ok pour le mot de passe
Pour le private sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4:B8")) Is Nothing Then Exit Sub
Dim var As Long
For var = 4 To 8
If Cells(var, 2) = "SYS" Then
Sheets("feuil1").Unprotect Password:="mdp"
Cells(var, 2).Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Cells(var, 2).Select
Selection.Locked = False
End If
Next
Sheets("feuil1").Protect Password:="mdp"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
La macro sera appelé lors de chaque changement dans les cellules "B4:B8", je suppose que c'est ce qu'il y a de mieux a faire... après quand tu travail dessus, si il y a beaucoup de données à changer, ça va très vite être problématique, sinon on peut aussi mettre un bouton
Pour l'erreur, dur à dire sans l'avoir sous les yeux, soit mettre un fichier similaire avec des données bidons, sinon il me faudrait au moins l'autre code complet
Essaye déjà de faire un essai en adaptant ce nouveau code, bon courage