habe aufgrund des Office-Wechsels von Excel 2000 auf Excel 2003 folgendes Problem:
Ausgangssituation ist ein geschütztes Arbeitsblatt mit dem Anwender unbekannten Passwort. Dieses Blatt besitzt Autofilter und Gruppierungen.
In Excel 2000 habe ich Autofilter und Gruppierung jeweils mit den folgenden bekannten Befehlen zur Laufzeit aktivieren können, ohne dass das Passwort notwendig war:
If ActiveSheet.ProtectContents Then
With ActiveSheet
.EnableAutoFilter = True
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
Else
End If
Dieses Makro hat also sowohl Gruppierung und Autofilter aktiviert, obwohl mir das Passwort unbekannt war und hat das Passwort auch unverändert belassen.
In Excel 2003 möchte Excel jetzt aber das Passwort wissen, was dem Anwender aber unbekannt bleiben soll. Für den Autofilter habe ich bereits eine Lösung, da dieser ja in Excel 2003 per Blattschutz explizit erlaubt werden kann (.Protect AllowFiltering:=True)
Für die Gruppierung habe ich aber noch keinen workaround gefunden, diese in Excel 2003 bei unbekanntem Passwort zu aktivieren. Idealtypisch wäre eine hybridlösung, die sowohl auf Excel 2000 als auch 2003 lauffähig wäre. Folgendes Rohgerüst verlangt allerdings in Excel 2003 nach dem Passwort:
If ActiveSheet.ProtectContents Then
With ActiveSheet
If Val(Application.Version) > 9 Then
.Protect userInterfaceOnly:=True, AllowFiltering:=True
.EnableOutlining = True
Else
.EnableAutoFilter = True
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End If
End With
Else
End If
Hat jemand diesbezüglich eine Lösung? Vielen Dank im voraus.
Matthias