احعل الخلية محصنة الى ان يتم ملىء خلية اخرى

[محمد مصطفى ابو حمزة]

ادخل هذا الكود فى شاشة كود الصفحة

[quote][/quote]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range

For Each Cell In Target

'الخلية المحمية منتديات اوفيسنا

If Cell.Address = "$D$5" Then

If Range("B2") = "" Then

Application.EnableEvents = False

Cell = ""

Application.EnableEvents = True

End If

End If

Next Cell

End Sub

[احمدزمان]

شكرا لك اخي الكريم

و جزاك الله كل خير

[محمد مصطفى ابو حمزة]

شكرا اخى احمد زمان وشرف لى ردك

[bowman]

بارك الله فيكم ونفع بكم