restaurer barres d'outils avec une macro

Bonsoir,

Sur un fichier excel, une macro me permet de faire disparaitre les barres d'outils pour les utilisateurs du fichier :

Private Sub Workbook_Open()
Dim cb As CommandBar 'déclare la variable cb (Command Bar)
Dim x As Byte 'déclare la variable x

x = 1 'définit la variable x
For Each cb In Application.CommandBars 'boucle sur toutes les barres d'outils
On Error Resume Next 'évite le bug de la barre de menu
If cb.Visible = True Then 'condition : si la barre d'outils est visible
cb.Visible = False 'masque la barres d'outils
Sheets("Feuil1").Cells(x, 256).Value = cb.Name 'stocke le nom de la barre d'outil dans la dernière colonne (IV)
x = x + 1 'redéfinit la variable x
End If 'fin de la condition
Next cb 'prochaine barre d'outils
End Sub

Je souhaiterai que les barres d'outils existantes avant que ce fichier ne soit ouvert, ce réinitialisent à la fermeture du fichier.
Pourriez vous m'aider ?

Merci