هل يمكن تنفيذ الكود على خلايا محمية في مصنف مشترك ؟

[أبوعيد]

السلام عليكم

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

عند تحويل المصنف إلى مصنف مشترك لا يعمل الكود وتظهر رسالة خطأ

وعند إزالة الاشتراك يعمل بدون مشاكل

 

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

 

مرفق نموذج للمشكلة (مصنف مشترك)

الكود الأول لنسخ قيمة A1 في A2

الكود الثاني لتغيير قيمة الخلية A2 عن طريق الفورم

اضغط على اي واحد منهما ولاحظ ظهور رسالة الخطأ

تحياتي للجميع

مصنف مشترك.rar

[ابو تراب]

وعليكم السلام

 

اخي ابوعبيد جرب الغاء ال Locked  للخلاياء A1  و A2 , وبعدها احمي و شارك الورقة

 

[أبوعيد]

السلام عليكم

أهلا بأبي تراب , زادك الله علما

الطريقة لم تنفع

أخي الحبيب الهدف هو منع المستخدم من ادخال البيانات مباشرة في الخلية A2

لأنه يمكن أن يدخل بيانات خاطئة 

تقبل تحياتي

[ابو تراب]

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

 

هلا اخي ابوعبيد

 

اذا كان و لابد من حماية الخلاياء هنا يمكنك تجريب الكود التالي

 

عملت لك مرفق لتجريب اذا احببت

 

كلمة السر هى 111

 

 

الكود

===

Sub Button1_Click()
With Application
    .DisplayAlerts = False
    .ExclusiveAccess
    .DisplayAlerts = True


    ActiveSheet.Unprotect 111
        [A2] = [A1]
    ActiveSheet.Protect 111


    .DisplayAlerts = False
    .KeepChangeHistory = True
    .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
    .DisplayAlerts = True
End With
End Sub

تشغيل ماكرو في ملف مشارك.zip

[أبوعيد]

شكرا لك أخي على المساعدة ,  الكود يظهر رسالة خطأ

للعلم أنه في الملف المشارك لا يسمح بفك حماية الورقة ثم إعادتها مرة أخرى ولو حتى بالكود

بينما يسمح بهذه العملية في الملف العادي

وهذا هو صلب المشكلة

 

فهل توجد طريقة أخرى ؟ 

تقبل تحياتي

[ابو تراب]

هلا باخي ابوعبيد

 

ان شاء الله ستحل

 

عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا

 

 

كلمة السر 111 كما في الملف المرفق

With ActiveWorkbook
    Application.DisplayAlerts = False
    .ExclusiveAccess
    Application.DisplayAlerts = True


    ActiveSheet.Unprotect 111
        [A2] = [A1]
    ActiveSheet.Protect 111


    Application.DisplayAlerts = False
    .KeepChangeHistory = True
    .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
    Application.DisplayAlerts = True
End With

 

تشغيل ماكرو في ملف مشارك.zip

[أبوعيد]

نعم اخي العزيز   بارك الله فيك

تم حل المشكلة والحمدلله

هذا هو المطلوب

[الصـقر]

استاذى المبدع

ابوتراب

بارك الله فيك عمل اكثر من رائع

زادك الله علما 

تقبل تحياتى

[ابو تراب]

هلا و غلا باستاذنا الغالي الصقر .. تشرفت بمروك العطر

 

تحياتي لشخصك الكريم

[ا بو سليمان]

ما شاء الله تبارك الله

[ابو خالد التقني]

السلام عليكم 

 

كيف الحال اخوتي في الله ؟

 

سؤال بخصوص مشاركة ملف اذا سمحتم لي.

 

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

 

وشكرا لكم