Bonjour
A mettre dans workbook_open
'protection feuille Accueil sauf pour macro
Sheets('Accueil').Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True
la ligne unprotect est peut-être inutile, il n'est peut-être pas obligatoire de déprotéger pour modifier la protection.
Note: protection sans mot de passe, sinon voir aide password
A+