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

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

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

شكل كود 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 اي صنع ماكرو يقوم بحماية الخلايا المراد حمايتها مثل ماكرو المقدم لكم في الاعلى كيف اصنع ماكرو في ورقة ايكسل الخاصة بي

[عبدللرحيم]

اخى زاكى

الكود داخل الملف

إذا تمت الكتابة على خلية لا يتم التعديل عليها 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Range
    For Each X In Target
        '  600 åæ ÇÎÑ ÓØÑ áÚãá ÇáßæÏ
        'L  åæ ÇáÚÇãæÏ  column 12
        If (X.Row < 600 And X.Column < 12) Then
            

            If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select
        End If
    Next
End Sub