Saugarder mes macros verouillage automaitique et conditionnel

Salut,
Je voudrais savoir comment sauvegarder les macros.
parce qu'une fois tapé:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save
End Sub

les cellules se verrouillent automatiquement au fur et a mesure qu'elles se remplissent, ce que je voulais faire grâce a vos soutiens c'est maintenant fait, encore je vous remercie.
mais un autre problème me suit, je sais pas comment faire la sauvegarde.

a chaque fois je ferme le fichier excel les codes macros disparaissent et la feuille n'est plus protégé.

Est ce que je pourrais avoir une technique pour que la feuille reste protégé avec les macros que ce soit fermée ou ouverte?