Lock Cell After Data is Entered on Particular Cell
On Sun, 24 Jun 2012 07:08:06 -0700, Gord Dibben wrote:
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
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
Still seems quite vulnerable.
|