Excel vba

trst.vba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If TypeName(Range("A" & Selection.Row).Value) = "Date" Then
        Select Case Selection.Column
        Case 2, 3, 4
            ActiveSheet.Unprotect Password:="123"
            Target.Locked = True
            ActiveSheet.Protect Password:="123"
            If DateDiff("d", Range("A" & Selection.Row).Value, Now) = 0 Then
                If DateDiff("n", Range("A" & Selection.Row).Value, Now) < 2 Then
                    ActiveSheet.Unprotect Password:="123"
                    Target.Locked = False
                    ActiveSheet.Protect Password:="123"
                Else
                    MsgBox "Please contact HIBIRD admin"
                End If
            Else
                MsgBox "Please contact HIBIRD admin"
            End If
        End Select
    End If
    If TypeName(Range("K" & Selection.Row).Value) = "Date" Then
        Select Case Selection.Column
        Case 12, 13
            ActiveSheet.Unprotect Password:="123"
            Target.Locked = True
            ActiveSheet.Protect Password:="123"
            If DateDiff("d", Range("K" & Selection.Row).Value, Now) = 0 Then
                If DateDiff("n", Range("K" & Selection.Row).Value, Now) < 2 Then
                    ActiveSheet.Unprotect Password:="123"
                    Target.Locked = False
                    ActiveSheet.Protect Password:="123"
                Else
                    MsgBox "Please contact HIBIRD admin"
                End If
            Else
                MsgBox "Please contact HIBIRD admin"
            End If
        End Select
    End If
End Sub