سؤال عن قفل خلية في ملف مفتوح في الاكسل

[سحـابة خير]

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

 

لو سمحتم انا حابة اوزع ملف اكسل

 

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

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سحـابة خير

 

جرب المرفق التالي

عله يكون المطلوب

حيث لايمكنك التعديل او الحذف للخلية b2 مع ظهور رسالة تفيد عمل ذك

 

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

 

حماية خلية معينة من التعديل.rar

[سحـابة خير]

ممتااااز

 

هذا المطلوب

 

لو بدون رسالة منبثقة يكون افضل

[سحـابة خير]

ياليت لو يكون محتوى الخلية مخفي ويطلع بالطباعة بس

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سحابة خير

 

الكود بدون رسالة سيكون كالتالي

ملحوظة : ( الكود المستخدم هو احد اكواد الاستاذ / عبد الله المجرب وتم تعديله ليتناسب مع طلبك ) وذلك لعدم ضياع الحقوق

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[a1] <> "" Then Exit Sub
 If Not Application.Intersect(Target, Range("b2")) Is Nothing Then
     Application.EnableEvents = False
     Application.Undo
      Application.EnableEvents = True
 End If

End Sub

وبخصوص ظهورة في الطباعة فقط فهذا موضوع آخر ( وان شاء ساقوم بالعمل عليه )

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

[محمد مبروك قشطة]

يا أستاذنا بعد اذنك عايزين نعرف يتعمل إزاى

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمد مبروك قشطة

 

تفضل الطريقة والشرح بالفيديو

في المرفق

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

 

 

الشرح فيديو للطريقة.rar

 

[سحـابة خير]

عفوا اخواني

 

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

 

انا احتاج حماية حقوقي في ملف راح اوزعه

[abdoullah]

شكرا جزيلا لك اخي الغالي  وعندي طلب

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

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

[أبو محمد أشرف]

ما شاء الله عليكم

[حمادة عمر]

السلام عليكم

الاخ الكريم / abdoullah

 

لتنفيذ طلبك هناك طريقتين لعمل ذلك عن طريق نفس الكود ايضاً وهو ان يكون مكان الخلية b1 في الكود يكون b1:b10 كما في الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[a1].Value <> "" Then Exit Sub
    If Not Application.Intersect(Target, Range("b2:b10")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

الطريقة الثانية : قم اخي الكريم بتسمية النطاقات التي تريدها باسم معين وليكن اسم النطاق هو myrange عبارة عن النطاف من b1 الي b10 ليكون الكود كالتالي

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[a1].Value <> "" Then Exit Sub
    If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

واي شئ آخر كلنا معك باذن الله

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو محمد أشرف

 

مرورك دائما يسعدني ويشجعني

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

[سحـابة خير]

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

 

هل هذي الاكواد تجيب على سؤالي ؟

[عبدالله المجرب]

ياليت لو يكون محتوى الخلية مخفي ويطلع بالطباعة بس

 

الاخت الفاضلة سحابة خير

 

جربي المرفق

 

عند الطباعة 

اسم ثابت عند الطباعة.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عبدالله المجرب

 

كود بسيط وسهل  وطريقته كبيره

والاجمل انه من كبير مثلك

سنظل خلفك دائما لننهل من علمك

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

[سحـابة خير]

مساء الخير يا اخوان

شكرا لمحاولاتكم بس اقتراحاتكم سهلة الخرق

 

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

 

كنت اتوقع القى حل اخر

 

شكرا لكم

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سحـابة خير

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

هل رأيتي المشاركة والملف الخاص بالاستاذ القدير / عبدالله المجرب

ففيه يتم ذلك عن طريق كود تقومي بكتابة ما تريدنه فيها لتظهر عند الطباعة وتكون ثابتة في كل اوراق الملف

وعند النقل لملف آخر ما عليك سوي نقل هذا الكود البسيط الي الملف الجديد

.... وان كان غير ذلك فرجاء مزيد من التوضيح ليتضح طلبك ويتم تنفيذه كما تريدين

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
        .LeftFooter = "&""-,غامق""&12عبد الله المجرب"
        End With
        Application.ScreenUpdating = True
End Sub