From: Gord Dibben on 27 Apr 2010 18:38
Like pulling teeth<g>
"Cannot change" to me means "locked"
Locked means sheet protection must be applied.
When you save at end of day you can run event code to look down column A and
find today's date or earlier.
Then lock the cells in column C
Does that work for you?
First select all cells on Sheet1 and clear the "locked" property.
Then paste this code into Thisworkbook module.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As Range
Dim rng1 As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng1 = ws.Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))
For Each c In rng1
If c.Value = Date Or c.Value < Date Then
c.Offset(0, 2).Locked = True
Else: c.Offset(0, 2).Locked = False
ThisWorkbook.Save 'save no ask
On Tue, 27 Apr 2010 14:18:41 -0700 (PDT), Michael Lanier
>Picture a check register. Basically, the idea is to enter today's
>date in column A. My computerized register balances my daily entries
>and returns a balance for each transaction in column C. When I close
>the file at the end of the day, I want the amount reflected in C to
>become permanent so that it cannot be changed at a later date.
>Therefore, any entry that reflects today's date in A will become
>permanent (fixed) in C. Sorry about the confusion. I hope this
From: Michael Lanier on 28 Apr 2010 10:40
Thanks for your patience and help. It appears to be working.
From: Gord Dibben on 28 Apr 2010 17:10
Post back if need more help on this subject.
On Wed, 28 Apr 2010 07:40:56 -0700 (PDT), Michael Lanier
>Thanks for your patience and help. It appears to be working.