دمج كودين

[محمد الورفلي1]

السلام عليكم اريد دمج الكودين في حدث الورفة
الكود الاول : عبارة عن قفل الخلية بعد الكتابة

 Me.[R1] Then Exit Sub
    If Not Application.Intersect(Target, Range("D4:q39")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "ÎáíÉ ããÊáÆÉ"
    End If

الكود الثاني تلوين الصف والعمود النشط

 

Application.ScreenUpdating = False
       Range("IP1").Value = Target.Address
    Application.ScreenUpdating = True

دمج.xls

[مهند محسن]

وعليكم السلام-عليك باستخدام خاصية البحث بالمنتدى فطلبك تكرر كثيراً جداً ومنها :

كود لتشغيل اكثر من موديول