حماية خلايا بكود ماكرو فيزيال بازيك

[زاكي بوشلاغم]

السلام عليكم عندي ملف ايكسل اريد. حماية بعض الخلايا بكود فيزيال بازيك كيف يتم ذلك  

شكل كود macro visual basic

Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range)
Set Rng = Range("e10,f10,g10,h10,i10")
If Not Intersect(Tr, Rng) Is Nothing Then
   Tr.Offset(0, 1).Select
   Set Rng = Nothing
End If
End Sub