Couleur bouton à l'ouverture du fichier: vba

Bonjour,

Je voudrais lorsque j'ouvre mon fichier excel que le bouton qui éxecute ma macro soit rouge mais je n'y arrive pas, j'arrive à changer dans les propriété la couleur du bouton puis lorsque je clic sur le bouton à le faire passer en vert mais lorsque je le ferme et je ré-ouvre le fichier, le bouton reste vert, voilà la commande qui le passe en vert:

Public Sub CommandButton1_Click()

Call macro1
CommandButton1.BackColor = vbGreen


End Sub

j'ai essayer pour l'ouverture du fichier:

Private Sub Workbook_Open()

CommandButton1.BackColor = vbRed

End Sub

mais ça ne marche pas, quelqu'un peux m'aider?
Merci d'avance.