ich habe folgendes Problem. Ich habe eine Datei, in welcher in Daten auswerte. Diese Daten (oder vielmehr gesamte Tabellenblätter) möchte ich gerne in eine andere Datei zur Archivierung kopieren und dann mit einem Blattschutz versehen. Das Kopieren funktioniert auch soweit.
Lieder kann ich nach dem Aktivieren des Blattschutzes die Gruppierungen und Filter nicht mehr benutzen. Hier im Forum bin ich auf diese Lösung von Beate Schmitz gestoßen:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Da ich ja zwei verschiedene Workbooks offen habe, wende ich es folgendermaßen an:'Blattschutz setzen
Workbooks(WBarchiv).Activate
'Blatt "Daten"
Workbooks(WBarchiv).Worksheets(Daten).Activate
ActiveSheet.Protect UserInterfaceOnly:=True, Password:=Passwort
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
Leider funktioniert es nicht. Was mache ich falsch?Vielen Dank und viele Grüße
Martin