Bloquer une feuille en lecture seul (VBA_EXCEL)

Sub Protection_feuille()
    'permet d' ecrire avec le VBA sans deproteger et pas de selection manuelle de cellule(s)
    With Worksheets("feuil1")
        .Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                            , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
        .EnableSelection = xlNoSelection
    End With
End Sub