حماية بيانات ورقة

[طاهر محمد]

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

اساتذتي الكرام هل هناك امكانية بأن نحمي بيانات الشيت المرفق بشكل تلقائي بمعني ان اي خليه يكتب بها بيانات يتم حمايتها تلقائيا

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

 

Book1.zip

[Yasser Fathi Albanna]

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.[T1] Then Exit Sub
  If Not Application.Intersect(Target, Range("Yasser")) Is Nothing Then

      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
  MsgBox "It is not your right to make any adjustment without reference to the Engineer / Yasser Fathi Al-Banna "
 End If
End Sub

السلام عليكم أخى الكريم

هل تريد مثل المرفق

ضع هذا الكود فى حدث الشيت

 

ثم إتبع الخطوات التالية

إفتح قائمة formulas

ثم Name Manager

ثم إختار New Name

وأكتب فى الخانة Name وليكن إسم اخوك كما بالكود Yasser

ثم أمام الخانة Refers To حدد الخلايا المراد حمايتها

ثم إضغط OK

ثم Close

وجرب

 

 

 

 

 

Book1.rar

[عبد العزيز البسكري]

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

ألف شكر أستاذنا الفاضل "ياسر فتحي البنّا"

حل أكثر من رائع من أستاذ أروع

بارك الله فيك

جزاك الله خيرًا و زادها بميزان حسناتك

تحياتي

 

[سليم حاصبيا]

انسخ هذا الكود الى حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet
        .Unprotect
        .Cells.Locked = True
        .Cells.SpecialCells(xlCellTypeBlanks).Locked = False
        .Protect
  End With
End Sub

 

[طاهر محمد]

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

في البداية اود ان اشكر  كل من  استاذي م/ ياسر فتحي البنا & ا ستاذ المعلم / سليم حاصبيا

علي تفاعلهم مع المشاركة

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

فهل من الممكن ان تظهر  input massge عند محاولة التعديل تفيد بادخال الرقم السري لكي يتم التعديل (الحماية برقم سري)

تم تعديل نوفمبر 11, 2015 بواسطه طاهر محمد

[سليم حاصبيا]

تم التعديل جسب الطلب

protect_non_empty.zip

[Yasser Fathi Albanna]

44 دقائق مضت, سليم حاصبيا said:

تم التعديل جسب الطلب

protect_non_empty.zip

اخى الحبيب أ / سليم

سلمت يمينك

[مصطفى محمود مصطفى]

في ١١‏/١١‏/٢٠١٥ ٢:٠٨:١٩, م / ياسر فتحى البنا said:

formulas

السلام عليكم

استاذ سليم عمل كفوء جدا وراقي

لكن لايعمل مع الخلايا المدمجة  هل يمكن جعله يعمل مع الخلايا المدمجة

شكرا لتعاونكم معنا

السلام عليكم

استاذ سليم عمل كفوء جدا وراقي

لكن لايعمل مع الخلايا المدمجة  هل يمكن جعله يعمل مع الخلايا المدمجة

شكرا لتعاونكم معنا

[سليم حاصبيا]

الخلايا المدمجة مشكلة بحد ذاتها بالنسبة لكود ال Vba

لعدم الوقوع في هذا الغخ  ينصح عدم استعمال الخلايا المدمجة  (استبدالها من خلال Center Across Selection)

[أبو أنس80]

بارك الله فيكم جميعا

[قيس111]

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

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

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

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

تمنياتي للجميع بالتوفيق

 

 

[قيس111]

لا توجد ردود

[zizo1974]

السلام عليكم اعزائى

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

[أبوعيد]

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

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

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

ثانيا : توضيحا لطلبك في الأعلى

هل تريد أن الخلية يتم أغلاقها بعد فترة معينة ( ساعة أو يوم ) بعد عملية التعديل ؟

لاحظ معي

لنفترض أننا ضبطنا الكود على أنه يغلق الخلية بعد ساعة من التعديل

ولنفترض أن المستخدم قام في الساعة 2:00 بتعديل الخلية فإن الكود سيسمح للمستخدم بالتعديل على الخلية حتى الساعة 3:00

ولكن لو قام المستخدم بالتعديل على الخلية الساعة 2:30 فإن الكود سيسمح له بالتعديل حتى الساعة 3:30

إذن حتى يتجنب المستخدم اغلاق الخلية سيعدل فيها قبل انتهاء الساعة بدقائق حتى تحسب له ساعة أضافية 

هذه هي المشكلة!!!!!