Option Explicit
Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets
If Feuille.Name = "X" Or Feuille.Name = "Y" Then
Feuille.Protect Password:="1969", _
AllowSorting:=True, AllowFiltering:=True, _
UserInterfaceOnly:=True
Else
'si non tout protéger
Feuille.Protect Password:="1969", UserInterfaceOnly:=True
End If
Next Feuille
End Sub