Option Explicit
Private Sub Workbook_Open()
With Worksheets("Motif")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, Password:="BiB2014", userinterfaceonly:=True
End With
End Sub