Pb de signature à l'enregistrement

Bonjour,
je travaille avec un projet signé, et je rencontre un souci.
J'ai créé une feuille de calcul que je met à jour toutes les semaines. La
mise à jour peux se faire ma moi ou un membre de mon équipe. Afin de ne pas
pénaliser les utilisateurs, j'ai créé un code VB qui enregistre
systématiquement la feuille sur un onglet et une position donnée de sorte
que les destinataires retrouvent toujours la feuille convenablement
présentée.
Pour éviter d'avoir à répondre à la question "voulez vous activer les macro"
sans pour autant compromettre la sécurité, j'ai signé mon code VB (de ce
fait on accepte tous les projets que j'ai signé et pas les autres).
Et la les ennuis commencent. En effet lorsque je travaille sur la feuille de
calcul en faisant de la saisie, lorsque j'enregistre tout se passe bien.
Mais lorsque un de mes collaborateurs fait de la saisie (il ne modifie pas
le code VB) il a droit à un message lui disant qu'il a fait des
modifications et que la feuille sera enregistrée non signée, ce que l'on
constate ensuite car lorsque l'on ouvre la feuille on à droit à la question
"Acceptez vous les macro ?"
Voici le code que j'ai mis à l'enregistrement.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
On Error Resume Next
Sheets("Feuille 1").Select
Range("B11").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1

Sheets("Feuille 2").Select
Range("B11").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1

Sheets("Feuille 3").Select
Range("b11").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub


Quelqu'un peut il m'expliquer ce qu'il faut faire pour que mes
collaborateurs puisse faire de la saisie sans pour autant détruire MA
signature.
Pas avance merci
Pascal