Bonjour,
J'ai essayé avec verrouillé et déverrouillé mais le message d'erreur et le même que précédemment.
J'ai ce code dans thisworkbook, le problème vient peut-être de là .
Sub Protege()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Protect Password:="061006", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, UserInterfaceOnly:=True
Next
End Sub
Amicalement.