Gruppe
Ereignis
Problem
In Spalte B dürfen immer nur die Zellen editierbar sein, deren Nachbar in Spalte A ein Datum des aktuellen Monats trägt.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRowL As Integer, iRow As Integer
Set wks = Worksheets("Tabelle1")
wks.Unprotect
iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Month(wks.Cells(iRow, 1)) = Month(Date) Then
wks.Cells(iRow, 2).Locked = False
Else
wks.Cells(iRow, 2).Locked = True
End If
Next iRow
ActiveSheet.Protect
End Sub