Sortieren verhindern in Office 2010

Question

Hallo,
zum Ausblenden der Symbole für das Sortieren in Spalten habe ich in Office 2003 bisher folgendes Makro verwendet:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars.FindControl(ID:=210).Enabled = True
.CommandBars.FindControl(ID:=211).Enabled = True
.CommandBars("Toolbar List").Enabled = True
.CommandBars("Worksheet Menu Bar").Controls("Daten").Controls("Sortieren...").Enabled = True
.EnableCancelKey = xlInterrupt
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Anpassen...").Enabled = True
End With
End Sub

Private Sub Workbook_Open()
With Application
.CommandBars.FindControl(ID:=210).Enabled = False
.CommandBars.FindControl(ID:=211).Enabled = False
.CommandBars("Toolbar List").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Daten").Controls("Sortieren...").Enabled = False
.EnableCancelKey = xlDisabled
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Anpassen...").Enabled = False
End With
End Sub[code]
Leider funzt das bei Office 2010 nicht mehr. Was muss ich ändern ?
Vielen Dank im voraus.
Mfg
torstenm

Answer 1

Hallo torstenm,

seit Office 2007 gibt es die s.g. Multifunktionsleiste und deren Inhalt kann auf diese Weise nicht mehr geändert werden. Die müsstest eine entsprechende XML-Anpassungsdatei erstellen welche beim Öffnen der Datei per Skipt geladen wird.

Man kann allerdings auch über den Blattschutz ein Sortieren der Daten verhindern, sieh dir mal unter Überprüfen / Änderungen / Blatt schützen die entsprechenden Einstellmöglichkeiten an, eventuell reicht das für deine Zwecke ja aus.

Gruß
Kalle