طلب مساعدة و استفسار

[mmtronic]

الاخوة الافاضل

احتاج مساعدتكم فى ماكرو لغلق الخلايا الملونة بالون الاصفر و التى تمثل التوقيع - اى بمجرد ادخال اسم الشخص فيها يتم غلق الخلية و لا تسمح لاحد بتعديل الاسم

و استفسار اخر - ما هو اقصى عدد للsheets يمكن ان يحتويها المجلد الواحد من الاكسيل

- هل يمكن اجراء بعض العمليات على الـ sheets المخفية بدون كود لظهورها ثم اجراء العملية ثم اختفائها مرة اخرى

و لكم جزيل الشكر و العرفان

test.rar

[طارق محمود]

السلام عليكم

أخي العزيز

ضع الكود التالي في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column > 1 Or Target.Row < 2 Or Target.Row > 10 Then Exit Sub

[ad1] = Target.Value

If [ad1] <> "" Then [b2].Select


End Sub

إذا كانت الخلية (إحدي الخلايا الصفراء) التي تنوي ملئها فارغة فسيقبل ولن يفعل شيئا

وإلا إذا كانت ملأي فسينتقل بمجرد الإشارة إليها إلي الخلية B2

تفضل المرفق أيضا

test2.rar

[احمد فضيله]

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

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم طارق، شكرا لك على تجاوبك مع طلبات إخواننا بالمنتدى، عمل جميل بارك الله فيك وفي أمثالك وجزاك الله كل خير...

أخوك بن علية

تم تعديل مايو 10, 2011 بواسطه hben

[mmtronic]

شاكر افضالك يا اخى

معزرة على تاخر ردى نظرا لسفرى

شكرا مرة اخرى و بارك الله لك

[طارق محمود]

السلام عليكم

اخي أحمد (HaNcOcK)

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

أخي بن علية

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

وأشكركما كثيرا علي مروركما والتعليق والكلمات الطيبة

أخي mmtronic

حمدا لله علي سلامة الوصول

والحمد لله أن الحل أرضاك

تم تعديل مايو 11, 2011 بواسطه TareQ M