Hide or Lock column based on cell date

Re: Hide or Lock column based on cell date

I have been dancing all around this with recent posts both of my own and others... trying to create a solution specific to your need though.
Unfortunately I've been up 19 hours after getting 3 hours sleep last night, so my mind is in an infinite loop of it's own.

I will take another shot at this in the morning once I've had a little more sleep if no one else has helped by then.

Re: Hide or Lock column based on cell date

Sorry for taking longer than I said... Had a family issue yesterday that I had to take care of.

Add the following to a form control to run. Works for me so far... trying to get it to run without the form control, but haven't been successful so far, so if anyone else much more knowledgeable can help, would be appreciated. Tried to remove the redundant pieces as I pushed together a few things to make it. Hope it works for you. It selects the cells directly in the column that today's date references and unlocks them. Added a blank password, change the "" to "whateverpasswordyouwant" to add an actual password to the sheet.

Sub find()
    Dim oSht As Worksheet
    Dim strSearch As String
    Dim aCell As Range
            
    On Error GoTo Err
    
    Set oSht = Sheets("Production")
    
    ActiveSheet.Unprotect ""
    ActiveSheet.EnableSelection = xlUnlockedCells
    strSearch = Date
    
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    
    Set aCell = oSht.Range("F3:p3").find(What:=strSearch, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    
    
    aCell.Select
    ActiveCell.Offset(1, 0).Select
    Range(ActiveCell, Cells(ActiveCell.Row + 6, ActiveCell.Column)).Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveSheet.Protect ""
    
    Exit Sub
Err:
    MsgBox Err.Description
End Sub

Re: Hide or Lock column based on cell date

So... realized in the original post that prior dates need to be accessible as well...

Tried to make a loop that worked back to range (F4:F10), and upon hitting that range stopped, but am being unsuccessful so far.

Can anyone give a hand? This is what I need to loop back to that range...

Selection.Offset(0, -1).Select
    Selection.Locked = False
    Selection.FormulaHidden = False

Which would go right after:

aCell.Select
    ActiveCell.Offset(1, 0).Select
    Range(ActiveCell, Cells(ActiveCell.Row + 6, ActiveCell.Column)).Select
    Selection.Locked = False
    Selection.FormulaHidden = False

Pretty sure I'm messing up the syntax etc with the loop I've tried, which was going to be a do:until loop.
After that this should be a solution to the request.

Re: Hide or Lock column based on cell date

Anyone?

Re: Hide or Lock column based on cell date

To Thisworkbook module

Private Sub Workbook_Open()
    Dim x
    With Sheets("production")
        .Unprotect
        .Cells.Locked = True
        x = Application.Match(CLng(Date), .Rows(3))
        If Not IsError(x) Then
            .Columns(x).Offset(, -1).Resize(, 2).Locked = False
        End If
        .Protect
        .EnableSelection = xlUnlockedCells
    End With
End Sub

Re: Hide or Lock column based on cell date

Working to me

Re: Hide or Lock column based on cell date

Are you opening the file all day through?

Re: Hide or Lock column based on cell date

Never close the file... sounds ridiculous.