ich benötige Hilfe bei einer Erstellung eines VBA Codes (Excel).
Ich würde gerne das die Zellen B5:AF33 automatisch gesperrt werden, wenn das Datum in Zelle B1 größer wie in Zelle AO30 ist (=B1>AO30).
Vielen Dank!
Sub Zellen_sperren()
With Worksheets("Dein Name") '** Bitte Sheet-Name einfügen!!
.Unprotect 'Blattschutz aufheben
If CDate(.Range("B1")) > CDate(.Range("AO30")) Then
.Range("B5:AF33").Locked = True
End If
.Protect 'Blattschutz aktivieren
End With
End Sub