How to Auto Lock Cell after Data entry in Excel




VBA Code:


Private Sub Worksheet_Change(ByVal Target As Range)


Dim kk As Range

 

   On Error Resume Next

    

   Set kk = Intersect(Range("b3:c12"), Target)

   

   If kk Is Nothing Then Exit Sub

    

   Target.Worksheet.Unprotect Password:="222"

  

   kk.Locked = True

    

   Target.Worksheet.Protect Password:="222"


End Sub


Comments

Popular posts from this blog

Physical properties of Liquid

Characteristics and Limitations of computer:

1.4 Bent Axis Piston Pump