Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each Wk In Worksheets(Array("BASE", "Sal + Hrs supp.2014"))
Wk.Activate
Wk.Protect Password:="motdepasse", UserInterfaceOnly:=True
Next Wk
Sheets("Sal + Hrs supp.2014").Select
Application.ScreenUpdating = True
End Sub