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