Sub protege_masque()
Version = Application.Version
If Version >= "11.0" Then
ActiveSheet.Protect Password:="tonmotdepasse", DrawingObjects:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWindow.SelectedSheets.Visible = False
Else
ActiveSheet.Protect Password:="tonmotdepasse"
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub