طريقة التغلب على مشكلة تعطيل الاكواد عند حماية ورقة عمل "protect sheet"

[ابو علام]

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

 

ارجو من الاخوة والاساتذة الافاضل افادتي بطريقة  التغلب على مشكلة تعطيل الاكواد عند حماية ورقة عمل "protect sheet"

 

حيث اني اقوم بعمل حماية لورقة العمل لحماية المعادلات او التعديل على خلايا محددة ولكن عند عمل حماية لورقة العمل يتم تعطيل عمل الاكواد فهل من طريقة لحل هذه المشكلة .

 

وبارك الله فيكم

 

[عزيز عرابي]

أخي الكريم

 

ممكن تضيف سطر لفك حماية الورقة ضمن الكود نفسه ليتم السماح باجراء الاوامر الموجودة ضمن الكود

 

و هذا السطر هو

 

activesheet.unprotect

 

و إن احبب زودنا بالكود لاضافة هذا السطر

 

مع التوفيق

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابو علام

 

بارك الله فيك

وبعد اذن اخي / عزيز عرابي ... جزاه الله خيرا

ولتوضيح الحل الخاص به ... ولاثراء الموضوع

ستقوم بوضع السطر التالي في بداية الكود ... ليتم ازاله الحمايه من علي الشيت

ويمكن ان تكتب باسورد او لا ... حسب رغبتك  .... وفي السطر التالي الباسورد 1 ... وكما سبق ذكره يمكنك الغاؤه ليكون السطر كما ذكر الاخ / عزيز

وبذلك تكون قد قمت بالغاء الحمايه من علي الصفحة ليعمل الكود كما تريد

ActiveSheet.Unprotect "1"

ثم في نهاية الكود ضع السطر التالي ... لاعادة الحمايه علي الشيت مرة اخري بنفس الباسورد

ActiveSheet.Protect "1"

وبذلك يعمل معك الكود كما تريد تماما ... وتصبح الصفحة محميه كما تريد

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

 

[ابو علام]

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

 

 

شكرا لاهتمام حضرتكم وسرعة الرد ولكن واضح اني لم اتمكن من اضافة السطور المقترحه وهذه هي الاكواد

Sub Rectangle1_Click()
    Rows("17:23").Select
    Selection.RowHeight = 0
End Sub



Sub Rectangle2_Click()
    Rows("17:23").Select
    Selection.RowHeight = 25.5
End Sub

ولكن هل معني اضافة السطرين المقترحين من حضراتكم انه سيتم الغاء الحماية مؤقتا لحين تنفيذ الامر ام سيتم الغائها تماما بحيث يمكن للمستخدم التعديل على الخلايا والمعادلات التي قمت بحمايتها ؟؟

 

وبارك الله فيكم

[ضاحي الغريب]

أخي الكريم // أبوعلام

وبعد اذن اخي الحبيب / حمادة عمر

الكود بعد التعديل في حالة عدم وجود باس ورد للشيت

Sub Rectangle1_Click()
'' في حالة عدم وجود باس ورد
activesheet.unprotect   
 Rows("17:23").Select
    Selection.RowHeight = 0
activesheet. protect
End Sub



Sub Rectangle2_Click()
activesheet.unprotect
    Rows("17:23").Select
    Selection.RowHeight = 25.5
activesheet. protect
End Sub

لكن لو في باس ورد اضفها للسطرين 

activesheet.unprotect
activesheet. protect

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

وعن تساؤلك عن الحماية سوف تتم الغاء الحماية مؤقتا حتي تنفيذ الكود وترجع مرة اخري في نهاية الكود قبل السطر End Sub

[حمادة عمر]

اخي الحبيب / ضاحي

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

[ابو علام]

السلام عليكم ...

جزاكم الله خير لاهتمامكم ..


قمت باضافة الاكواد بعد التعديل يطلب مني الحفظ بصيغة ( Microsoft Office Excel Macro-Enabled Worksheet (.xlsm)


حتي يتم تفعيل الاكواد فهل لابد من حفظ الملف بالصيغة المذكورة حتي يتم تفعيل الاكواد في حالة حماية الملف او الورقة بالكامل ؟؟

* الاوفيس المستخدم اوفيس 2007

وشكرا لكم

حساب التصفية الحديث 1.rar

تم تعديل أبريل 25, 2013 بواسطه ابو علام

[حمادة عمر]

لسلام عليكم

الاخ الكريم / ابو علام

 

بارك الله فيك

شاهد الرابط التالي ... عله يفيدك ... بعنوان  (( حفظ ملف إكسيل 2007 أو 2010 بتنسيق 2003 )) ... بشرح فيديو

http://www.officena....c=45933&hl=2007

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

[ضاحي الغريب]

أخي الحبيب // حمادة عمر

بارك الله فيك

وجزاك كل خير

[عبد الحميد شقير]

جزاكم الله الخير الوفير وزادكم حرصًا علي مرضاته