"Speichern und senden" blockieren

[tomster]

Liebe Excelfreunde,


unter Excel 2003 haben folgende Codes das "Senden an" einer geöffneten Mappe unterbunden:

Private Sub Workbook_Activate()
Application.CommandBars(1).Controls("Datei").CommandBar.Controls("Senden an").Enabled = _
False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars(1).Controls("Datei").CommandBar.Controls("Senden an").Enabled = _
True
End Sub

Jetzt benutze ich Excel 2010 und es funktionert nicht mehr :(  ...der Befehl wird ignoriert, die Mappe kann unter "Datei", "Speichern und senden" problemlos verschickt werden.

Interessant ist auch, dass folgendes eingefügtes Ereignis bei Datei "Speichern und senden" ignoriert wird:

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


Weiß jemand eine Lösung?

Viele Grüße
Tom

[mumpel]

Hallo!

Das geht nur per RibbonX. Arbeite dafür meinen RibbonX-Workshop durch.

Gruß, René

[tomster]

Hallo René,

puuuh, da steig ich nicht so schnell durch  

Kennt niemand den Befehl, um "Datei" - "Speichern und Senden" zu deaktivieren?

Viele Grüße
Tom

[mumpel]

Müsste (in Excel 2010 und 2013) "FileSendMenu" sein. Damit deaktivierst Du aber nur das Menü, nicht den Befehl. Die Befehle (PDF: "FileEmailAsPdfEmailAttachment", XPS: "FileEmailAsXpsEmailAttachment") musst Du über die Command-Ebene der Anpassungsdatei deaktivieren. Aber das verhindert nicht dass die Datei über "Speichern unter" als PDF gespeichert und dann manuell als PDF-Anhang gesendet wird. Auch die Nutzung externer PDF-Programme kannst Du nicht verhindern.
Die Befehlsliste kannst Du bei mir herunterladen. Da es für jede Officeversion verschieden ist musst Du selber die Richtige auswählen. Englischkenntnisse sind da hilfreich. Du musst Dich aber mit RibbonX befassen. http://www.rholtz-office.de/ribbonx:down...ieldateien