اذهب الي المحتوي
أوفيسنا

مطلوب كود لاظهار رسالة عند اختيار خلية محمية


tar70
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

نعم الخلية محمية  وتم عمل كود لجعل  الخلية غيى محمية فى حالة ادخال بيانات بخلية اخرى 

اى عدم ازالة الحماية للخلية الا بعد ادخال بيانات خلية اخرى

والمطلوب رسالة  توضح الخلية المطلوب ادخال بياناتها حتى تزول حماية الخلية

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

ما فائدة ارفاق  ملف  محمي  كيف  سنضع  لك  الكود 

جرب  هذا  الكود  على حسب ما فهمت

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("a1:b10")) Is Nothing Then Exit Sub
    MsgBox "this cell is protected,pleace unprotect it " & Target.Address
    
End Sub

 

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

  • 1 month later...
  • أفضل إجابة

حسب فهمي للمطلوب 

يمكنك إضافة هذا الشرط لحدث عن تغير التحديد

If Target.Column > 6 And Target.Column < 14 And Target.Row > 2 Then
For Each c In Range("f" & Target.Row & ":m" & Target.Row)
If Not c.Locked Then MsgBox "يرجى إنهاء أعمال " & Cells(1, c.Column) & " أولا": Exit For
Next c
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