Protect a column?

D

DG

Is there any way to protect columns one at a time as they are filled in
without protecting the whole workbook? I have a years worth of columns set
up where I have to fill in estimated numbers on a bi-weekly basis, then when
the actual numbers come in, change them to the actuals. I would like to
protect the columns after the actual numbers are entered so no one can
accidentally change them. Is this possible?

I'm using Office 2000. Thanks in advance for any help provided.
 
P

Paul B

DG, how about something like this

Private Sub Worksheet_Change(ByVal Target As Range)
'Automatically Protecting After Input
'unlock all cells in the range first
Dim MyRange As Range
Set MyRange = Intersect(Range("A1:D100"), Target)
If Not MyRange Is Nothing Then
Sheets("Sheet1").Unprotect password:="123"
MyRange.Locked = True
Sheets("Sheet1").Protect password:="123"
End If
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
 
Top