how can i lock cell immediately if any value Entered?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want lock a cell immediately when i entered a value. So that the user cant
change the value what he entered. But it should be done automatically. The
very next process of his entry it should be done.
 
not practical - you will type mistakes (i was going to say 'might')

you would need a macro to lock cells as you type, and when you finished
choose:

Tools>Protection>Protect Sheet

to disable all locked cells
 
Here is an example of pseudo-protecting a cell. This macro looks for changes
to cell A1. The first time data is entered, the Macro "remembers" the value.
If A1 changes after that, the macro will detect the change and restore A1 to
the "remembered" value. You can adapt it to your needs. The Macro should go
into the Worksheet code area.


Dim sval As Variant
Dim i As Integer
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A1:A1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If i = 0 Then
i = 1
sval = Range("A1:A1").Value
Else
Range("a1:a1").Value = sval
End If
Application.EnableEvents = True
End Sub
 
Back
Top