Protecting Cells

This just prevents the cells from being edited

Dim objRange As Excel.Range 

If (objRange.Locked = True) Then 
   'all cells in range are locked
End If 

If (objRange.Locked = False) Then 
   'all cells in range are not locked
End If 

If (objRange.Locked = null) Then 
   'cells in range have a combination of locked and unlocked
End If