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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen