AW: Zellen und Spalten Sperren nach aktuellen Datum
09.02.2006 09:23:49
UweD
Hallo
variabel? wenn z.b. nur in jeder 2. Zeile ein Datum steht.
so wird die nachfolgende Zeile ebenfalls gesperrt/freigegeben.
Private Sub Workbook_Open()
Dim Tb, Sp%, ZE%, Z
Set Tb = Sheets("Tabelle1")
Sp = 1 'Spalte A
ZE = 2 'es sollen 2 Zeilen bearbeitet werden
Tb.Unprotect Password:="123"
For Each Z In Tb.Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
If Z.Value = Date And Z.Value <> "" Then
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = False
Else
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = True
End If
Next
ActiveSheet.Protect Password:="123"
End Sub
Gruß UweD
(Rückmeldung wäre schön)