Private Sub Workbook_Open() '!!! VOIR A COMPLETER ICI> ######
'Sélectionner les cellules verrouillées
'Format de cellule
'Format de colonnes
'Format de ligne
'Insérer des colonnes
'Insérer des lignes
'Insérer des liens hypertextes
'Supprimer des colonnes
'Supprimer des ligne
Dim Sh As Worksheet, PassW$
PassW$ = "toto" '< VOIR CODE PERSO ######
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect Password:=PassW$ 'd'abord déprotect
Sh.EnableAutoFilter = True
Sh.EnableOutlining = True
Sh.Protect Password:=PassW$, DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False
Sh.EnableSelection = xlNoRestrictions '< VOIR CHOIX AVEC CI-DESSOUS ######
'xlNoRestrictions permet la sélection de n'importe quelle cellule
'xlNoSelection empêche toute sélection dans la feuille
'xlUnlockedCells ne permet que la sélection des cellules dont la propriété Locked est False
Next
On Error GoTo 0: Err.Clear
End Sub