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

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

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

شكل كود 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

[عبدللرحيم]

تفضل من عباقرة المنتدى

لعله ما طلبت إن شاء الله 

 

 

 

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

اخي لم تصلح معي اريد كود visual basic macro اي صنع ماكرو يقوم بحماية الخلايا المراد حمايتها مثل ماكرو المقدم لكم في الاعلى كيف اصنع ماكرو في ورقة ايكسل الخاصة بي