Låse textcelle

Svaret på dit ønske hedder Datavalidering.

Data -> Datavalidering

Herinde sætter du Tillad til Dato.
Data sættes til "Større end eller lig med"
Startdato sættes til =NU()

Der kan jeg jo ikke i skrive VB kode!

Jeg har overvejet løse det på en fusket måde ved at lave både en textBox og en Label:
IF range("A1")=> NU() Then
Label= False & TextBox= True
IF Range ("A1")< NU() Then
Label= True & TextBox= False
End IF

Prøv evt.

I et modul skriver du

Public DatoFelt As Date


I ThisWorkbook skriver du

Private Sub Workbook_Open()
    DatoFelt = Worksheets("Ark1").Range("B4")
End Sub


og i dit ark med datofeltet skriver du

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$B$4" Then
    If DatoFelt > Now() Then
        If Not Target.Value > #1/1/2000# Then
            Range("B4") = DatoFelt
        End If
    Else
        Range("B4") = DatoFelt
    End If
End If

End Sub

Den sidste Sub bør nok ændres, så DatoFelt variablen opdateres, hvis indtastningen godkendes:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$B$4" Then
    If DatoFelt > Now() Then
        If Target.Value > #1/1/2000# Then
            DatoFelt = Range("B4")
        Else
            Range("B4") = DatoFelt
        End If
    Else
        Range("B4") = DatoFelt
    End If
End If

End Sub

Super :-)