السلام عليكم
الاخ الكريم / أ/حكيم
بارك الله فيك
تفضل اخي الكود التالي لتنفيذ ما تريد
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Me.[T1] Then Exit Sub
If Not Application.Intersect(Target, Range("MYRANG1")) Is Nothing Then
MsgBox "السلام عليكم .. اهلا بكم في منتدي اوفيسنا .. مع تحياتي ابو سما"
Cancel = True
End If
End Sub
واليك الملف المرفق ... كمثال
تقبل خالص تحياتي
SAMA-رسالة.rar