ظهور رسالة خطاء عند الاستدعاء

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

السلام عليكم

ما سبب هذة الرسالة عند الضغط علي مفتاح الاستدعاء (( رقم حماية الملف 1234

 

 

 استدعائي.rar

 

 

 

[الصـقر]

الاخ الكريم

يوجد كود فى حدث الورقه واحد عند تغيير التحديد قم بحذفه ( مش عارف ايه الفايده من وجوده ؟ )  عموما قم بالحذفه كما قلت ستجد الكود يعمل تمام

تقبل تحياتى

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

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

 

الكودين مهمين لي لايمكن الاستغناء عنهم ممكن استبدال بكود آخر او دمج الكودين  ان امكن

[خالد الرشيدى]

السلام عليكم

اخى الكريم جرب ان تضع  تلك العبارة قبل كود الفرز التصاعدى مباشرة

On Error Resume Next

 

تم تعديل أغسطس 5, 2015 بواسطه خالد الرشيدى

[الصـقر]

الاخ الحبيب

ضع هذا السطر فى الكود 

ActiveSheet.Unprotect "1234"

بعد هذا السطر

Range("C11:M86").Select

وذالك لان الكود اللى بحدث الورقه يعمل عند تغيير التحديد للخلايا فيقوم بعمل الحمايه للورقه لذالك يجب بعد  سطر التحديد بالكود نرجع نفتح الحمايه مره اخرى  

تقبل تحياتى

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

السلام عليكم شكراً علي المساعدة استاذ خالد الرشسد

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

 

هذا للتوضيح لسبب اختيار افضل اجابة

 

 

On Error Resume Next

 

[الصـقر]

الاخ الحبيب محمد الخازمى

وبعد اذن استاذى الفاضل خالد الرشيدى

هذه العباره سوف تتفادى الفرز بمعنى ان الخطأ كان يقع بالكود بعد السطر 

Range("C11:M86").Select

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

ثم بعد ذالك يرجع الكود الاصلى فى اكمال مهامه فيأتى عند هذا السطر 

Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

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

 فلو وضعنا هذا السطر كما تفضل استاذى خالد الرشيدى

On Error Resume Next

سوف يقوم الكود بالقفز الى السطر التالى لسطر الفرز ولا يقوم بمهمة الفرز 

وطبعا السطر التالى هو 

ActiveSheet.Protect "1234"
End Sub

اعتذر لاستاذى خالد الرشيد ولكن حبيت ان اوضح للاخ محمد الخازمى من اين ياتى error

تقبلوا تحياتى واحترامى

تم تعديل أغسطس 5, 2015 بواسطه الصـقـر

[خالد الرشيدى]

استاذى  الصقر

جزاك الله خيراً  .....  حقاً عمل رائع

واعتذر عن الحل الخاطئ الذى قدمتة .. فلعلى فقط نظرت الى الكود الخاص بعمل الترتيب ولم اجد بكتابتة خطأ لهذا اقترحت هذه العبارة  ..ولم انتبة لشى اخر ..

.. بارك الله فيك استاذنا الفاضل ....

تقبلوا تحياتى

تم تعديل أغسطس 5, 2015 بواسطه خالد الرشيدى

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

الاخ الحبيب محمد الخازمى

وبعد اذن استاذى الفاضل خالد الرشيدى

هذه العباره سوف تتفادى الفرز بمعنى ان الخطأ كان يقع بالكود بعد السطر 

Range("C11:M86").Select

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

ثم بعد ذالك يرجع الكود الاصلى فى اكمال مهامه فيأتى عند هذا السطر 

Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

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

 فلو وضعنا هذا السطر كما تفضل استاذى خالد الرشيدى

On Error Resume Next

سوف يقوم الكود بالقفز الى السطر التالى لسطر الفرز ولا يقوم بمهمة الفرز 

وطبعا السطر التالى هو 

ActiveSheet.Protect "1234"
End Sub

اعتذر لاستاذى خالد الرشيد ولكن حبيت ان اوضح للاخ محمد الخازمى من اين ياتى error

تقبلوا تحياتى واحترامى

 

شرح وافي بارك الله فيك استحيت ان اطلب الشرح فا بادرت انت بذالك شكراً

 

 

استاذى  الصقر

جزاك الله خيراً  .....  حقاً عمل رائع

واعتذر عن الحل الخاطئ الذى قدمتة .. فلعلى فقط نظرت الى الكود الخاص بعمل الترتيب ولم اجد بكتابتة خطأ لهذا اقترحت هذه العبارة  ..ولم انتبة لشى اخر ..

.. بارك الله فيك استاذنا الفاضل ....

تقبلوا تحياتى

استاذ خالد الرشيد السباق للخير