Cel blokkeren na invullen van een datum

[BarryT]

Dag Rose,

Dat is m.i. alleen te bereiken door handmatig de cel van geblokkeerd af te halen en vervolgens de datum aan te passen.
Dan zou je nog in de code kunnen opnemen dat na het invoeren van een datum in een cel in kolom P, de cel automatisch weer op geblokkeerd gezet word.

Excel kan namelijk onmogelijk weten of de datum die is ingevoerd de juiste datum is of niet.
Wel kan je in VBA opnemen dat een cel niet geblokkeerd moet worden wanneer de datum niet aan een bepaalde format voldoet, zodat je dit daarna nog kunt aanpassen (om bvb. typfouten te ondervangen).
Wanneer je dan wel een correct format hebt ingegeven, kan de cel vervolgens wel weer geblokkeerd worden.

 

[AD1957]

Gebruik de optie van edmoor uit #9 en dan met een inputbox.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 14 And Target.Row > 3 Then
    If IsDate(Target.Value) Then
        If Application.InputBox("Zonder wachtwoord kun je de datum niet wijzigen.", "WACHTWOORD NODIG") <> "FQA2022" Then
           MsgBox "Fout wachtwoord, je kunt deze datum niet aanpassen."" "
           Application.Goto Range("N3")
        End If
    End If
    
    If Target.Count > 1 Then
        MsgBox "je mag maximaal 1 cel selecteren"
        Application.Goto Range("N3")
    End If
 
 End If
End Sub