Question

I considered only Four columns in Excel sheet (i.e A,B,C,D) all remaining columns should have default in nature.

My doubt is if i select any cell in Each row of that four columns, than remaining cells should not accept any data i.e those should go to locked mode, like this i want to do from top to bottom of Excel page (i.e. this effect for only four columns remaining column should have default behaviour)

Answer 1

I’m not exactly sure what you mean, but you could try the following:

Sub ApplyLock      
  Dim sh as WorkSheet
  set sh = ActiveSheet
  sh.Range(sh.range("E1"),sh.cells(sh.rows.count,sh.cells.count)).Locked = True
  sh.protect userinterfaceonly:=true      
End Sub

Edit: After re-reading, it looks like you might want only the first four columns protected. In that case:

Sub ApplyLock      
  Dim sh as WorkSheet
  set sh = ActiveSheet
  sh.Range("A:D").Locked = True
  sh.protect userinterfaceonly:=true
End Sub