Comment "verrouiller" les barres d'outils : autrement dit, empêcher que l'on puisse en ajouter ou en retirer.

Tu peux utiliser cela :

sub PROTECTION_BARRES()
 For i = 1 To
 CommandBars.Count
 CommandBars(i).Protection = msoBarNoChangeVisible +
 
 msoBarNoCustomize + msoBarNoMove
 On Error Resume Next
 Next
 end sub

Pour retablir :

sub RETABLIR()
 For i = 1 To CommandBars.Count
 
 CommandBars(i).Protection = msoBarNoProtection
 On Error Resume Next
 Next
 end sub