Enlever l'alerte " oter la protection de la feuille ?" lié à UserInterfaceOnly

Bonjour
Je n' arrive pas à éviter, lors de l'ouverture du fichier x alertes correspondant aux x onglets
et ça fait beaucoup !
le but était de "sceller" la même plage de cellules sur chacun des onglets en permettant les macros
Dim FeuillP As Object
For Each FeuillP In Worksheets
'FeuillP.Protect UserInterfaceOnly:=True
FeuillP.Protect Contents:=True, UserInterfaceOnly:=True
FeuillP.EnableSelection = xlUnlockedCells
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False
End Sub

je mets DisplayAlerts = False nimporte où, ça marche pas
merci si une ^me sensible connaît la réponse