Hisham Abdullah

وهنا اود التنويه الى أن الكود الذي وضعته أنا في الموضوع .. قام بتنفيذ المطلوب تمااااماً ، وكانت مشكلتي الوحيدة فيه هي : عدم قدرتي في جعله "Public" ليتم تشغيله بواسطة زر ماكرو

شكراً جزيلاً اخي العزيز ، وتشرفت جداً بانضمامي لأسرة "أوفيسنا" الرائعة.. اما فيما يتعلق بالكود الذي ارسلته .. فأولاً/ لابد من تقديم كل عبارات الشكر لشخصك الرائع .. أما ثانيا / الكود نفذ المطلوب تماماً .. ولكن هنالك اشكاليتين بسيطتين واجهتهما وهما: 1- انه عند تنفيذ الامر يقوم الاكسل بالتنقل على جميع الصفحات ويفتحها الواحدة تلو الأخرى قبل تنفيذ الأمر 2- الخلايا "الفارغة المؤمنة" التي في جميع تلك الصفحات يُلغى تأمينها والآن / 1- هل بالامكان تعديل الكود بحيث يتم حصرة فقط في "Active_sheet" .! 2- ايضاً يتم تقييدة بـ "Range" معين داخل هذا الشيت وهكذا اعتقد يمكن ان تٌحل جميع تلك المشاكل وشكراً جزيلاً لك مرة أخرى ،،

اخي طلبك تمت الاجابة عليه في الملف الذي قمت بارفاقه !!

السلام عليكم اخواني.. بدايةً أود التنويه الى انني استخدم الاكسل منذ فترة ولكن لم يسبق وان تعاملت مع اكواد (VBA) واليوم حصلت على كود (Private sub) جاهز لتنفيذ أمر لحماية الخلايا بعد الادخال مباشرة ولكنني ارغب في تقييد هذا الكود ، بحيث لا يقوم بتنفيذ الامر إلا بعد الضغط على زر (حفظ) سواءاً من خلال تعديله وابقائه (Private) او تحويله الى ماكرو وربطه بزر للتنفيذ ، والكود هو: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A1:F8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub وشكراً لكم مقدماً ،،