حماية مصنف من تغيير بيانات بكود برمجي

[أبو قاسم]

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

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

                                                                                                        Book1.rar

[صالح احمد ابوسيف]

للرفع

[الصـقر]

اخى الكريم كاسر الامواج والاخ الكريم صالح

جرب المرفق تم التعديل على الكود ليناسب مطلبكم

عند التعديل سيطلب رقم سرى وهو 123 ويمكنك تغييره ان شئت من خلال هذا السطر بالكود

x = "123"

تقبلوا تحياتى

 

Book1.zip

تم تعديل ديسمبر 15, 2015 بواسطه الصـقر

[أبو قاسم]

تشكر ربنا يزيدك علما ونفعا للاخرين ماقصرت وماعللية كلام تسلم الايادي

[أبو قاسم]

وجدت مشكلة حيث ان كود المسح لايعمل والخلية محميةيوجد ملف مرفقBook1.rar

[الصـقر]

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

Sub mash()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    Range("h9:j34").ClearContents
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتى