Lock Cells outside of dates

[Dazzybeeguy]

I have a column of dates is Column A

In C1 I want to put a Start Date
In E1 I want to put a End Date

Is their a way to just unlock cells in Column A that are = to or between those dates ?

 

[LongToast]

Locked cell not affected unless you protect the sheet, how you input Start Date and End Date if sheet is protected?

 

[LongToast]

Locked cell not affected unless you protect the sheet, how you input Start Date and End Date if sheet is protected?

Oh i see, you checked "Edit Object", yes you can do that.

 

[LongToast]

Put this on your Worksheet Code Environment :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Or Target.Column = 5 And Target.Row = 1 Then
        Dim dtStart, dtEnd As Date
        
        dtStart = Me.Range("C1").Value
        dtEnd = Me.Range("E1").Value
        
        If IsDate(dtStart) And IsDate(dtEnd) Then
            Dim arrData As Variant
            Dim iLast, i As Long
            
            iLast = Me.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            
            arrData = Me.Range("A1:A" & iLast).Value
            
            Me.Unprotect
            
            For i = LBound(arrData) To UBound(arrData)
                If arrData(i, 1) >= dtStart And arrData(i, 1) <= dtEnd Then
                    Me.Range("A" & i).Locked = False
                Else
                    Me.Range("A" & i).Locked = True
                End If
            Next i
            
            Me.Protect
        End If
    End If
End Sub