Hallo beisammen,
im Rahmen der Budgetphase habe ich pro Kostenstelle eine Planungsdatei erstellt. Jetzt gibt es aber die eine oder andere Datei, die nicht jeder öffnen soll und die ich daher mit einem Leseschutz versehen habe.
Da ich nach der Budgetphase die Eingabefelder in den Dateien sperren muß, habe ich einen entsprechenden Code erarbeitet, der ausgehend von einem WS "FILES" die darin genannten Dateien öffnet und die Eingabefelder sperrt (beispielhaft am WS "ENTER" der Planungsdatei, die anderen WS habe ich der Übersichtlichkeit halber weggelassen):
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
Dim ws
Dim Arr, i2%
Dim ZE As Object
Arr = Array("ENTER", "ET110", "ET120", "ET140", "ET150", "ET210", _
"ET220", "ET240", "ET600", "WH")
For i2 = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i2)).Unprotect Password:="TEST"
Next i2
With Sheets("ENTER")
.Range("EingEST").Locked = True
.Range("EingBU").Locked = True
.Range("EingCONT").Locked = True
.Range("EingACC").Locked = True
.Range("AddComm").Locked = True
End With
....
Arr = Array("ENTER", "ET110", "ET120", "ET140", "ET150", "ET210", _
"ET220", "ET240", "ET600", "WH")
For i2 = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i2)).Protect Password:="TEST"
Next i2
Wie muß der Code jetzt angepaßt werden, sodaß auch die lesegeschützten Datein über den Code den Schreibschutz erhalten und das PW für den Leseschutz z.B. "123" lautet?
Eine nachträgliche manuelle Anpassung mit dem Zellschutz ist aufgrund der Vielzahl eher suboptimal.
Vielen Dank für Eure Hilfe vorab.
Gruß
Torsten