Rétablissez la protection de la feuille de calcul lors de l'enregistrement et de la fermeture

J'ai actuellement un code VBA qui va automatiquement déprotéger toutes les feuilles de calcul dans mon fichier Excel 2016 par nom d'utilisateur.

Actuellement, lorsque j'ouvre le fichier, il demande un mot de passe. Je ne veux pas que cela demande un mot de passe, je veux simplement qu'il soit déprotéger TOUTES les feuilles si le nom d'utilisateur de la personne qui l'ouvre correspond à ce qui sera dans le code.

Dites que je suis autorisé à apporter des modifications au classeur et je l'ouvre et TOUTES les feuilles sont non protégées. J'effectue certains changements, mais j'aimerais réintroduire automatiquement la protection que j'ai configurée sur chaque feuille car je sauvegarde les modifications apportées.

L'utilisateur final qui remplira les feuilles de travail n'a pas accès au changement. Tout ouvre le fichier et toute la protection que j'ai configurée en place et active. Actuellement, j'utilise ce code, mais ça ne fonctionne pas.

• Trouver toutes les instances d'un texte et en faire un lien hypertexte avec une macro
• Comment réorganiser les feuilles dans un ordre spécifique, puis par ordre alphabétique?
• Comment activer les clés de macro Razer BlackWidow sur Windows sans installer Razer Synapse?
• Dans Excel, j'ai collé sur un tas d'URL, mais ce ne sont pas des liens en direct: comment puis-je les convertir en masse en liens en direct?
• Copier des données à partir de plusieurs documents Word dans une feuille Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("ADD-EXTEND").Protect Password:="SPAR" ActiveWorkbook.Save End Sub 

PS Ce sous-dessous est sous le code pour débloquer les feuilles dans le ThisWorkbook?

• Création de liens automatiques dans OpenOffice
• Comment puis-je utiliser mon macbook en niveaux de gris?
• Trouver et remplacer {0,} occurrences dans Word
• Hack pour exécuter plusieurs iMacros de manière aléatoire
• Comment supprimer l'extension du noyau OSx