اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعدة في الكود من الجميع أرجوكم ضروري


قيس111

الردود الموصى بها

عندي ملف أكسل احتاج مساعدتكم فيه يوجد فيه كود يحمي الصفحه من التعديل الرقم السري للتعديل 1400

المطلوب شرحته بداخل الملف 

وهو كالأتي 

احتاج المساعده في حفظ الصفحه ولكن احتاج الكتابه فيها والاستطاعه الاختيار من القوائم المنسدله فيها مع حماية البيانات السابقه 

ارجو من الله ثم منك مساعدتي

 

 

Book1.xlsm

رابط هذا التعليق
شارك

  • 2 weeks later...

سأجد في جعبتهم الكثير.

 

من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها 

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "Don't Change"

    End If

End Sub

رابط هذا التعليق
شارك

للرفع

من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها 

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "Don't Change"

    End If

 

 

 

رابط هذا التعليق
شارك

السلام عليكم 

 

أخوتي في منتدى أوفيسنا .

لم أعهد هذا التجاهل منكم أيها الخبراء .

لا ننسى اننا يجب ان نقف مع بعضنا البعض ومن يستطيع المساعده فيساعد .

أريد أحد الخبراء أو مشرف القسم أو مدير المنتدى أن يساعدني أو يجيبني بلا نستطيع او لا نريد مساعدتك...؟؟؟؟ .

 

شاكر كل من مر وأجابني بمساعده أو أخبرني بعدم أستطاعته .

 

سأنتظر وأتمنى أن لا يخيب ظني بكم 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information