Empêcher la commande "Envoyer vers"

Bonjour à tous,

Dans le même esprit que ma question précédente, j'aimerais désactiver la commande "Envoyer vers"...

Merci beaucoup de votre aide,

Bonne journée

Re-,

J'ai trouvé ce code qui pourrait assez bien correspondre à ce que je souhaite faire :

Dim CmdBar As CommandBar

Dim CmdBarControl As CommandBarPopup

Dim SendToControl As CommandBarPopup

Set CmdBar = Application.CommandBars("Worksheet Menu Bar")

Set CmdBarControl = CmdBar.Controls("&File")

Set SendToControl = CmdBarControl.Controls("Sen&d To")

Malheureusement il ne fonctionne pas chez moi...

Si quelqu'un peut me venir en aide...

Merci !

Bonsoir,

dans thisworkbook mettre ce code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then Cancel = True
End Sub

Bonjour,

Merci de votre réponse ! Le code permet bien d'empêcher la commande "enregistrer sous" mais pas "envoyer vers"...

Bonne journée

Bonjour,

Ca doit être du genre SendNow = False ou FileSendMenu = False mais coller ça où ? j'en sais rien du tout