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

السلام عليكم اريد مساعدة في تحديد نطاق خلية عن طريق دالة تحديد نطاق خلية.rar

السلام عليكم اريد عدم سماح لادخال تاريخ خاطئ في تكست مثلاً 1/1/20015 والصحيح طبعاً 1/1/2015 هنا تظهر رسالة او لايسمح لي بادخال البيانات تعديل علي فورم.rar

السلام عليكم اخي الفاضل شوقي ربيع اتمنى ان يفتح هذا الملف Book12.rar

شكراً اخي ربيع والله سهرناك امعانا على العموم العمود الي تحدث به مشكلة هما c+d وجعلة الله في ميزان حسناتك

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

السلام عليكم استاذ ربيع اعاود تحميل الملف من جديد تفعيل الحذف في الكود 2.rar وعلي العموم هذا هو الكود ملاحظة هذا الكود الجزء الاول لقد وجدة في احد ملفاتك لقد طبقت ((ActiveSheet.Unprotect Password:=123 ولكن نفس المشكلة يزيل التأمين عن الخلية ويظهر هذا الخطاء Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect "123" If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If If Not Intersect(Target, Range("d18:d2014")) Is Nothing Then Select Case Target Case "ك" Target = "ذكر" Case "ن" Target = "انثى" End Select End If Application.ScreenUpdating = False If Target.Column = 4 Or Target.Column > 8 Then GoTo 1 LR = Cells(Rows.Count, 2).End(xlUp).Row If Range("B" & LR) = "" Or Range("C" & LR) = "" Or Range("d" & LR) = "" _ Or Range("e" & LR) = "" Then GoTo 1 Range("b18:e" & LR).Select Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ''''''''''''''''''''''''''''''''''''''''''''''' With Range("b18:b" & LR + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With '''''''''''''''''''''''''''''''''''''''''''' With Range("b18:b" & LR + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With Range("b" & LR + 5).Select 1: Application.ScreenUpdating = True ActiveSheet.Protect "123" End Sub

للرفع

السلام عليكم اخي خالد دائماً ضع عنوان واضح للموضوع انظر الي الرابط يوجد به ما تريد ان شاء الله http://www.officena.net/ib/index.php?showtopic=57303

السلام عليكم هذا رابط لنفس الملف بدون رقم سري في المشاركة رقم 12 http://www.officena.net/ib/index.php?showtopic=48918 وهذا رابط اخر الرقم السري ((( اكرامى )) http://www.officena.net/ib/index.php?showtopic=55105

للرفع

للرفع واختصار الموضوع اريد بعد حذف بيانات اي خلية يرجع تأمين الخلية كما كان

السلام عليكم لدي كشف به كود مركب يقوم بإبجدة فورية والانتقال الي اخر خلية فارغة بعد تعبئة البيانات في نهاية كل صف المطلوب ( عند حذف طالب عن طريق مفتاح Delete في لوحة المفاتيح يتم الحذف ولكن تظهر رسالة في الصورة رقم 1 وثم تترك الخلية بدون تأمين كما في الصورة رقم 2 اريد عند الحذف تعود الحماية مباشراً بارك الله فيكم مع العلم ان كل اربع صفوف مدمجة مع بعضها وهذا ضروري لي لان الملف مرتبط بأوراق اخر بنفس التنسيق الرقم السري 123 تفعيل الحذف في الكود.rar

شى جميل جداً ........ ان شاء الله يكون في ميزان حسناتك :fff:

السلام عليكم عمل جميل جداً استاذ شوقي توجد لدي مشكلة في نافذة البحث لااعرف هل هي من الاوفيس 2003 ام لا ياريت علي اوفيس 2003

السلام عليكم استاذ ابو الآء احب ان اكون اول المهنئين عمل حلو وجميل وكذالك تنوع الالوان بالنماذج ...... سوف اكون متابع للمشاركة حتى التمس كل تطوير به ... لدي ملاحظة في القائمة المنسدلة لقد قيدتها بمحافظات معينة ارجو ان تكون مفتوحة حتي يتم تجربته في جميع البلاد العربية كما تعلم ان المنتدي به اعضاء من كافة الوطن العربي وبذالك تختلف اسماء المحافظات وكذالك اسم الوزارات ....

استاذ khmb شكراً لك لمساعدتي بارك الله فيك اذا اكان هناك طريق لزيادة النطاق بحيث يشمل حوالي 20 عمود و 50 صف وجعل الون الاخضر حر بمعني اختار اي لون ولايتغير حتي بعد مرور الماوس فا ياريت تزويد بها زادك الله من علمة

بارك الله فيك نطمح من حضرتك ان تكون العمليه كلها بالاكواد (( انت إن شاء الله قدها )) شكراََ مره ثانية

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

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

استاذي الفاضل تحصلت في المنتدى علي طلبي ولكن اريده يكون صف وعمود وليس خلية يعني (( يظهر على شكل حرف L بالصورة الموجودة بالمشاركة الاولي ............... وكذالك الغاء مفتاح تفعيل الميزة الموجود داخل المرفق هل ممكن تعديل الكود لو سمحت تلوين 22.rar

هل الفكرة ماتنفعش بالاكواد

السلام عليكم اريد منكم مساعدة في تعديل على كود تلوين عمود وصف لكن مع ثبات لون التنسيق الشرطي ولون الخلية الموجود علية تلوين عمود وصف مع ثبات لون التنسيق الشرطي ولون الخلية.rar

السلام عليكم استاذ شوقي ربيع فكرة جميلة ممكن على 2003

السلام عليكم هذا طريقة جميلة لتسويق لاافضل اصدار أوفيس إكسل 2003 مريح جداً وبسيط

السلام عليكم تنشيط ممتاز وجميل جداً بارك الله فيك