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

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

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

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

 

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

اين الملف

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

السلام عليكم اريد  خلق ماكرو  حمابة الخلايا  كبف يتم ذلك 

[عبدللرحيم]

اخى زاكى

الكود  داخل الملق 

عدم التعديل فى اسطر محددة (1).xlsb

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

اريد كود الحماية الخلايا 

من e10   الى I10

من e13   الى I13

من e20   الى I20

من e27   الى I27

من e33   الى I33

من e46   الى I46

من e56   الى I56

من e59   الى I59

من e62   الى I62

من e68   الى I68

من e68   الى I68

 

 

 

 

 

 

 

 

حيث كود الحماية يكون هذا

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim protectedRange As Range
    Set protectedRange = Range("A2:K2") هنا ادراج جميع الحلايا المراد حمايتها لم اعرف كيف ادخلها من E13.الئ I13 ................
    If Not Intersect(Target, protectedRange) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك"
        Application.EnableEvents = True
    End If
End Sub