XL 2019 publication sur page Web avec feuille protégée

bonjour,

voici mon code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Protect "1234", UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

Je n'arrive pas à mettre à jour automatiquement une republication sur une page web quand j’enregistre :-(

voici le message que je reçois :



comment je dois mettre mon code VBA à jour pour que cela fonctionne automatiquement ? merci pour votre aide...

Ben