Blattschutz mit Gruppierungsmöglichkeit
13.12.2004 17:24:01
Stephan
Ich habe folgendes Makro (rufe ich über ein externes Sheet auf, ist also nicht im aktuellen Sheet, da dies an fremde Personen geht), damit alle Blätter geschützt sind und trotzdem die bestehende Gruppierung geöffnet & geschlossen werden. Die funktioniert auch beim ersten Mal, doch sobald ich das Excel schließe und wieder öffne funktioniert die Gruppierung nicht mehr!
Ich bitte euch ganz dringen um Unterstützung...
Vielen Dank & LG, Stephan
Sub Schuetzen()
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
Password:="wdo", _
Contents:=True, _
UserInterfaceOnly:=True, _
DrawingObjects:=True, _
Scenarios:=True
ActiveSheet.EnableOutlining = True
ActiveSheet.EnableAutoFilter = True
Next
End Sub
Anzeige