محمد الورفلي1 قام بنشر مارس 15, 2015 قام بنشر مارس 15, 2015 (معدل) السلام عليكم لدي كشف به كود مركب يقوم بإبجدة فورية والانتقال الي اخر خلية فارغة بعد تعبئة البيانات في نهاية كل صف المطلوب ( عند حذف طالب عن طريق مفتاح Delete في لوحة المفاتيح يتم الحذف ولكن تظهر رسالة في الصورة رقم 1 وثم تترك الخلية بدون تأمين كما في الصورة رقم 2 اريد عند الحذف تعود الحماية مباشراً بارك الله فيكم مع العلم ان كل اربع صفوف مدمجة مع بعضها وهذا ضروري لي لان الملف مرتبط بأوراق اخر بنفس التنسيق الرقم السري 123 تفعيل الحذف في الكود.rar تم تعديل مارس 15, 2015 بواسطه محمد الخازمي
محمد الورفلي1 قام بنشر مارس 15, 2015 الكاتب قام بنشر مارس 15, 2015 (معدل) للرفع واختصار الموضوع اريد بعد حذف بيانات اي خلية يرجع تأمين الخلية كما كان تم تعديل مارس 15, 2015 بواسطه محمد الخازمي
شوقي ربيع قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 السلام عليكم الملف لم يشتغل عندي على العموم لفك الحماية وارجاعها من اجل تنفيذ كود ما تكو الصيغة هكذا ActiveSheet.Unprotect Password:=123 ' . ' . ' . ' هنا ضع الكود الذي تريد تنفيذه ' . ' . ActiveSheet.Protect Password:=123
محمد الورفلي1 قام بنشر مارس 16, 2015 الكاتب قام بنشر مارس 16, 2015 (معدل) السلام عليكم استاذ ربيع اعاود تحميل الملف من جديد تفعيل الحذف في الكود 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 تم تعديل مارس 16, 2015 بواسطه محمد الخازمي
شوقي ربيع قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 نفس المشكلة الملف لا يشتغل ماهو العمود الذي تحذف منه الطالب ملاحظة حسب ماشاهدة من الكود الذي ادرجته فان الحماية تفك عند حدوث اي تغير في الشيت من العمود 2 الى العمود 3 ممكن وجود تعارض مع احد الاكواد السابقة والله اعلم وايضا لمدا تكرار هدا الجزء من الكود With Range("b18:b" & LR + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With
محمد الورفلي1 قام بنشر مارس 16, 2015 الكاتب قام بنشر مارس 16, 2015 (معدل) عمود الصف او عمود الجنس وعلى فكر والله يعمل الملف بشكل جيد عندى فانت ادرى منى بمثل هذه المشكلة ممكن لاني اعمل على 2003 تكرار الكود حسب علمى هو للانتقال الى الخلية b التالية عند النقر على مفتاح انتر من بعد وضع تاريخ ميلاد الطالب تم تعديل مارس 16, 2015 بواسطه محمد الخازمي
شوقي ربيع قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 هههه معليش مفيش مشكلة الي قصدتو باسم العمود هو اسم العمود في الشيت A ,B,C وليس ماسميته انت لان الملف لم يفتح عندي اصلا لكي اعرف اين هي تلك المسميات اما الكود الي تكلمة عليه هو لتنسيق الخلايا المدمجة لا اكثر احذف الثاني الا فائدة منه
محمد الورفلي1 قام بنشر مارس 16, 2015 الكاتب قام بنشر مارس 16, 2015 (معدل) شكراً اخي ربيع والله سهرناك امعانا على العموم العمود الي تحدث به مشكلة هما c+d وجعلة الله في ميزان حسناتك تم تعديل مارس 16, 2015 بواسطه محمد الخازمي
شوقي ربيع قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 الكود السابق ليس له اي علاقة مع لحذف هو بيقول لم تكتب من 1 في العمود C بيعطيك اولى ابتدائي وهكذا ولا لما تكتب ك في العمود d بيعطي ذكر شوف ان كان هناك اكواد اخرى ادرجها لكي نشوف اين الخطاء للاسم لم يشتغل الملف عندى لاكان الامر اسهل
محمد الورفلي1 قام بنشر مارس 17, 2015 الكاتب قام بنشر مارس 17, 2015 السلام عليكم اخي الفاضل شوقي ربيع اتمنى ان يفتح هذا الملف Book12.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.