Zellenformatierung mit Blattschutz
05.12.2008 08:25:00
donald
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellungen nach dem Schließen der Datei wieder zurücksetzten und nach dem nächsten Öffnen wieder nichts geht.
Aber das geht ja auch mit einem MAkro. Ich habe schon eins, dass Autofilter und Gliederung zulässt.
Kann das jemand so erweitern, dass die anderen Dinge auch drin sind?
Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="esm-win"
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Das wär super!
Gruß
Anzeige