ich habe einen Schichtplan und es sollen keine rückwirkenden Änderung > 2 Tage möglich sein.
In Zelle A1 befindet sich das heutige Datum "=HEUTE()"und in Zellen A3, A4, A5, usw. vortlaufend, das Datum der Tage für das Jahr 2015.
Nun Habe ich einen VBA-Code gefunden der schon fast das macht was ich brauche, nämlich er soll die Zeilen sperren, die das Datum des heutigen Datums.
Zusätzlich benötige ich noch eine Möglichkeit diesen Code für alle Tabellen zu nutzen (Tabelle1, Tabelle2, Tabelle3, usw.) und
Der Code sieht im Moment so aus:
Private Sub Workbook_Open()
With Sheets(1) 'anpassen Anforderung: soll auch auf Tabelle2, 3, 4, usw. angwendet werden kö _
nnen
.Unprotect "x" 'passwort "x" ist optional
.Cells.Locked = True 'alle zelle sperren
Rowy = Columns("a:A").Find(Date, after:=.[a1]).Row 'Hier benötige ich ab HEUTE() -2 sollen editierbar sein
Rows(Rowy).Locked = False
.Protect "x"
End With
End Sub