Lock cells

[Jasond93]

Hi,

I have a cash report template that needs the page to be locked, with certain cells unlocked for data input. i need the unlocked cells to be able to be locked after the data is inputted. Throughout each day there will be four different times that data will be entered into the spreadsheet, thus, I need the locked sheet to lock additional cells four times throughout the day.

Thanks!
Jason

 

[ParamRay]

.
.

Supposing the unlocked cell is A1, you could place the following macro in the code module for the worksheet.

It will lock the cell after a value is entered.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim WRng As Range
    Dim Cell As Range
    
    'Set cell currently unlocked
    Set WRng = Me.Range("A1")
    
    'if user changes unlocked cell
    'then lock it after change...
    
    If Not Intersect(Target, WRng) Is Nothing Then
        Me.Unprotect Password:="qwerty" 'unprotect sheet
        For Each Cell In Intersect(Target, WRng)
            If Cell.Value <> vbNullString Then
                Cell.Locked = True  'lock cell
            End If
        Next Cell
        Me.Protect Password:="qwerty"   'protect sheet
    End If

End Sub