Re : Simple problème de protection de classeur
Bonsoir,
Peut-être avec une modification de la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F8:F202")) Is Nothing Then
With ActiveSheet
.Unprotect Password:="OTC3008"
TestFormat6Chiffres Target
.EnableSelection = xlUnlockedCells
.Protect Password:="OTC3008", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
End If
End Sub