'Gord Dibben[_2_ Wrote:
> ;1603079']First...........select all cells on sheet and format them to
> unlocked.
>
> Add this event code to the worksheet module.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> On Error GoTo enditall
> Application.EnableEvents = False
> If Target.Cells.Column = 3 Then
> ActiveSheet.Unprotect Password:="justme"
> n = Target.Row
> If Me.Range("C" & n).Value <> "" Then
> Me.Range("C" & n).Locked = True
> End If
> End If
> enditall:
> ActiveSheet.Protect Password:="justme"
> Application.EnableEvents = True
> End Sub
>
> When you enter a value in column C that cell will become locked for
> editing.
>
>
> Gord
>
>
> On Sun, 24 Jun 2012 12:00:21 +0000, Moideen
> <
Moideen...@excelbanter.com> wrote:
> -
> >
> >We are maintaing an excel sheet for expense details, After Entering
> the
> >data on Amount Coloumn Need to Lock The Amount Coloumn with Password.
> >Please help me.
> >
> >Coloumn 1 Coloumn 2 Coloumn 3
> >
> >Date Item Name Amount-
Dear Gord ,
Thank you very much, It's Function working well, But i unprotected the
work sheet with the password of "justme" and excel opening time need
auto protection if i forgot to protect the sheet before excel closing
time.
your kindly help is highly appreciated
--
Moideen