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

هل يمكن إجراء حماية تلقائية للخلايا بعد تعبئتها فورا ؟؟


halwim

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

بسم الله الرحمن الرحيم

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

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

و لكن بمجرد كتابة أي شيء فيها تصبح محمية بشكل تلقائي وفوري ؟

وحينئذن لا يمكن للمستخدم إجراء أي تعديل إلا من خلال كلمة مرور هل يمكن ذلك ؟؟

أتمنى أن يكون ذلك ممكنا .

تحياتي

تم تعديل بواسطه halwim
رابط هذا التعليق
شارك

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

أخي الكريم nse ماشاء الله ،، ماكنت أتوقع أن تتحفنا بهذا الكنز في وقت سريع وقياسي ،، شكرا كثيرا لك .

بالنسبة للحماية بعد الكتابة ناجحة 100% وكذلك فك الحماية ، لكن أتمنى أن تكون طريقة فك أو إلغاء الحماية من خلال ظهور صندوق يمكن تعبأته بكلمة المرور بحيث يخرج الصندوق فورا عند محاولة تحرير الخلية التي تم حمايتها بالكود ،

وأعتقد أن الفكرة سوف تتضح أكثر إذا قمت بمشاهدة المرفق الموجود في المشاركة رقم (5) على الرابط التالي :

http://www.officena.net/ib/index.php?act=S...=14&t=11532

تحياتي

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

  • 2 weeks later...

اخي nse

بارك الله فيك وجزاك الله الف خير

كيف احدد نطاق تنطبق عليه الحمايه التلقائيه بدل من كامل الورقه

وسؤال اخر

كيف احدد خلايا لا تنطبق عليها الحمايه التلقائيه

جزاك الله الف خير ونور الله دربك ورزقك صلاح النيه والذريه

.

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

  • 1 month later...

اذا كان الكود المرفق يقوم بحماية الخلية

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Locked = False Then

Me.Unprotect Password:="123"

Target.Locked = True

Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

End If

End Sub

كيف اقوم باستثناء بعض الخلايا وامكانية التعديل عليها

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

  • 1 year later...
هل من الممكن الحمايه بعد دقيقتين مثلا

نعم يمكن ذ لك

اذا كان الكود المرفق يقوم بحماية الخلية

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Locked = False Then

Me.Unprotect Password:="123"

Target.Locked = True

Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

End If

End Sub

كيف اقوم باستثناء بعض الخلايا وامكانية التعديل عليها

سارفق ملف لشرح ذلك

كيف احدد نطاق تنطبق عليه الحمايه التلقائيه بدل من كامل الورقه

وسؤال اخر

كيف احدد خلايا لا تنطبق عليها الحمايه التلقائيه

جزاك الله الف خير ونور الله دربك ورزقك صلاح النيه والذريه

.

ستجد الاجابة في الشرح الخاص بالسؤال السابق

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information