أبو حنــــين

جزاك الله خيرا اخي أبو أنس حاجب

هذه محاولة حساب تاريخ الميلاد.rar

الموفق 250.rar

ربما المشكلة في التسمية ضع مكان Sheet1 ضع مكانها الكلمة ورقة1

غيرت نوعا ما في ترتيب البيانات لتسهيل العملية استعداء بيانات.rar

جرب الطريقة التالية : ـ 1 تقوم بتحديد كل خلايا الورقة و تؤشر على كلمة مؤمنة من ( تنسيق خلايا ثم حماية ) ـ 2 تذهب الى الخلايا التي التي تريد استثنائها مثلا كما ذكرت z2 : z5000 و تقوم بتحديدها ثم تنسيق ثم تمسح علامة صح عن كلمة مؤمنة ـ 3 تطبيق الكود الذي اكتته في مشاركتك ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells و الله اعلم

او يمكن وضع الكود التالي بعد تصحيح الكود السابق Private Sub UserForm_Activate() Dim i As Integer For i = 1 To 20 ComboBox1.AddItem ورقة1.Cells(i + 1, 1) Next End Sub

مثال Book1.rar

بالفعل اخي الحبيب دغيدي المشكلة هي في حالة رفع مستوى الأمان الذي يفسد كل شيئ

الملف السابق للفرنسية الملف الحالي للعربية تغيير اللغة.rar

جرب المرفق تغيير اللغة.rar

تعديل كلمة المرور تعديل.rar

هذا تعديل في الملف السابق

جرب المرفق اخي كلمة المرور.rar

أخي الطاهر الكود الذي يحسب السريل ليس له علاقة بالبرنامج هو فقط لمعرفة سريل القرص الصلب مثلا قمت بانجاز برنامج لشخص ما تعرفه و اردت ان تعطيه هذا البرنامج بحيث لا يعمل الا في جهازه اولا استعمل الكود الذي يحسب السريل و ذلك فقط لتعرف سريل قرص هذا الشخص ثم عد للبرنامج الذي انجزته و اكتب السريل في حدث الفتح دون ان تكتب الكود الذي يحسب السريل

العفو أخي ماجد

بالنسبة للكود يمكن استعمال التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("D5") And Target.Value > 10 And Target.Text <> "غ" Then MsgBox "هذه القيمة أكبر من المسموح به ، يرجي كتابة قيمة أخرى", vbInformation, "خطأ" Target.Value = "" Target.Select End If End Sub بالنسبة للتحقق من الصحة سأحاول ذلك

استعمل اخي ابو انس الكود التالي Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Column = 26 Then Range("D1").Value = Target.Value End If End Sub

جرب المرفق كلمة.rar

جرب المرفق بالكود التاريخ.rar

جرب هذه الطريقة فهي تعمل فقط على القرص الذي تحرده أنت مع ملاحظة أنه يجب حماية البرنامج ( المحرر ) بكلمة سر و إلا فالطريقة تصبح غير مجدية تماما خطأ.rar

مثال تطبيق.rar

يا ريت أخي لو توضح أكثر في المرفق كيف تتم العملية لان ماذكرته في المشاركة الاولى و ما هو موجود في الملف مختلفين

أخي أين الملف المرفق قم بضغطه ببرنامج ضغط ثم ارسله

. نموذج.rar