1.3k Aufrufe
Gefragt in Tabellenkalkulation von ramirez-333 Einsteiger_in (85 Punkte)
Hallo Ihr *Z*s,

Ich habe eine geschütze Arbeitsmappe (Excel 2003) damit die Anwender
die in dieser Mappe gesetzten Gliederungsfilter nutzen können, habe ich
diesen Makro im Bereich "Diese Arbeitsmappe" hinterlegt und dies funktioniert super.

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
ActiveSheet.EnableXXXXXXX = True 'für Benutzerdefinierte Ansichten
End Sub

Nun möchte ich aber, daß die Anwender auch Benutzerdefinierte Ansichten verwenden dürfen.
Also meine Bitte: Was muß ich für o.g. XXXXXX einsetzen, daß dies funktioniert?

Danke Euch im voraus
Tim

3 Antworten

0 Punkte
Beantwortet von ramirez-333 Einsteiger_in (85 Punkte)
Hat sich erledigt, habe die Lösung selber gefunden.

Hier mein Makro, der funktioniert:

Sub Workbook_Open()
ActiveSheet.Unprotect 'Password:="xxx"

Dim Ansicht
Ansicht = ActiveSheet.Range("$Q$1").Text

ActiveWorkbook.CustomViews(Ansicht).Show

ActiveSheet.Protect 'Password:="xxx"


ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter


End Sub

Danke Euch!
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi :-)

vielleicht ^^

Protect UserinterfaceOnly:=True/False


gruss nighty
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi :-)

ops die antwort zuspät gesehen

gruss nighty
...