أبو سجده قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 بسم الله الرحمن الرحيم وبه نستعين والصلاة والسلام على رسول الله اللهم صلى عليه أفضل الصلاة وأذكى السلام السادة الاخوة والاخوات السلام عليكم ورحمة الله وبركاته سألا المولى العلى القدير أن يوفقنا جميعا لصالح الاعمال أرجو من حضراتكم المساعدة فى هذا المرفقويتعلق الموضوع بكيفية إخفاء وحماية المعادلات على إختلاف نطاقتها بنحو لايتمكن المستخدم العبث بتلك المعادلات بحيث تظهر له رسالة تحذيرية على النحو التالى " عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء أو إدخل الرقم السرى الخاص بكم "وحتى لاأطيل على حضراتكم فنرجو متابعة المرفق فجميع الخلايا ذات اللون الاخضرذو حماية وإخفاء فيما عدا ذلك فهو متاح للمستخدم والمطلوب بإذن الله تعالى أن يصل ملف العمل إلى 750 موظف وفقنا الله واياكم وتقبلوا وافراحترامى وتقديرى وجزاكم الله تعالى خيرا 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 (معدل) السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ولعمل حماية للمعادلات واظهار رسالة عندما يريد المستخدم التعديل قم بوضع الكود التالي في النطاق الذي تريده Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" End If End sub جزاك الله خيرا تم تعديل مارس 5, 2013 بواسطه حمادة عمر 1 رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 5, 2013 الكاتب مشاركة قام بنشر مارس 5, 2013 بسم الله الرحمن الرحيم أخى العزيز الاستاذ / عبدالله المجرب " ابو احمد " كل عام وانتم بخير أولا أشكركم على اهتمامكم بإضافة حرف الباء بكلمة رسالة بعنوان الموضوع كما أشرت لسيادتكم عبر رسالتى لكم ثم أشكر هذة الوجوه الكريمة التى تشاركنى الموضوع فتحية طيبة من عند الله عليكم جمبعا فهذا أخى حماده عمر وهذا أخى حسين العضلوجى فالله أسأل أن يوفقنا جميعا لما يحب ويرضى جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 اخي سعيد جرب الملف إخفاء وحماية المعادلات برسالة تحذيرية والدخول برقم سرى - سعيد بيرم.rar 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 الاخوه الكرام الاخ عبدالله الاخ حماده بارك الله فيكم اكواد رائعه ونسأل الله الا يحرمنا من مشاركاتكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 السلام عليكم الاخ الكريم / إبراهيم ابوليله بارك الله فيك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 5, 2013 الكاتب مشاركة قام بنشر مارس 5, 2013 بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الاستاذ الفاضل / عبدالله المجرب السلام عليكم ورحمته الله وبركاته أشكركم أخى العزيزلهذة المشاركة الطيبة فكما تعلم أخى العزيز أننى لست خبيرا بالاكواد نظرا لحكم السن والوقت وظروف العمل التى تؤثر سلبا على عدم تمكنى من دراستها حتى الآن تم تحميل المرفق وسيتم إطلاعكم على النتيجة وكلى ثقة فى الله أولا وفى هذه العقلية المنيره التى أهداها الله تعالى إلينا جعلكم الله تعالى عونا للجميع فلاتحرمنا من متابعة الموضوع جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 6, 2013 الكاتب مشاركة قام بنشر مارس 6, 2013 بسم الله الرحمن الرحيم أخى العزيز الاستاذ / عبدالله المجرب السلام عليكم ورحمته الله وبركاته بداية جزاكم الله خيرا تم تجربة الكود الذى تفضلتم به على الملف الاصلى ولاأملك سوى قولى بارك الله فيكم فالحمد لله تعالى فالملف يعمل بكفائة عالية ولى طلب أخر وهو الجزء الآهم ألا وهو عدم تمكن المستخدم من رؤية المعادلات بأى حال من الآحوال لآنه على الوضع الحالى يمكن للمستخدم عمل UNPROTECT وبالتالى يمكنه مشاهدة المعادلات ومن ثم نسخها أو العبث بها وهل يمكن حماية الـــ VBA بكلمة سر حتى لايتمكن المستخدم من العبث بالكود الذىتفضلتم به نرجو الافادة وجزاكم الله خيرا تقبل وافر احترامى وتقديرى رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 6, 2013 الكاتب مشاركة قام بنشر مارس 6, 2013 بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الاستاذ / عبدالله المجرب تحية طيبة من عند الله أرجو قبول العذر لعدم التركيز قليلا المطلوب بحول الله تعالى حماية الـــ VBA بكلمة سر حتى لايتمكن المستخدم من العبث بالكود الذى تفضلتم به فيما عدا ذلك فالامور تسرى فى نصابها الطبيعى عاشت أيديكم وأشكركم من كل قلبى وجزاكم الله خيرا تقبل وافر احترامى وتقديرى رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 7, 2013 مشاركة قام بنشر مارس 7, 2013 السلام عليكم الاستاذ الكريم / سعيد بيرم اليك طريقة حماية الـــ VBA بكلمة سر بشرح فيديو طريقة عمل باسور لمحرر الاكواد.rar 1 رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 7, 2013 الكاتب مشاركة قام بنشر مارس 7, 2013 بسم الله الرحمن الرحيم وبه نستعين أخى العزيز المحترم / حماده عمر السلام عليكم ورحته الله وبركاته جزاكم الله خيرا وأشكركم لحسن تعاونكم معى تشرفت بكم أخا غاليا وصديقا حميما أفخر به وفى القريب بإذن الله سيتم رفع برنامج المرتبات فى ثوبه الجديد أتعشم أن ينال رضا الجميع تفبل وافر احترامى رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 7, 2013 مشاركة قام بنشر مارس 7, 2013 السلام عليكم الاخ والاستاذ / سعيد بيرم لك مني اجمل تحيه وشرف لي ان يكون لي صديق مثلك والف مليون شكر لهذا الصرح العملاق لانه جعلني اتعرف علي اشخاص مثلك جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر مارس 9, 2013 مشاركة قام بنشر مارس 9, 2013 (معدل) جزاكم الله خيرا عند وضع كود الاستاذ الفاضل عبد الله في ملفي .. تحمي المعادله ولكن تظهر المعادله وعند وضع كود الاستاذ حمادة تحمي المعادله وتظهر المعادله اقل من ثانيه وتختفي .. مالحل ؟ تم تعديل مارس 9, 2013 بواسطه nasersaeed رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 9, 2013 مشاركة قام بنشر مارس 9, 2013 عند وضع كود الاستاذ الفاضل عبد الله في ملفي .. تحمي المعادله ولكن تظهر المعادله في البداية يجب ان تحدد جميع الخلايا ثم من تنسيق الخلايا اختر حماية قم بإزالة الصح من خانتي تم تأمينها ومخفية بعدها قم بتحديد خلايا المعادلات ثم من تنسيق الخلايا قم بوضع صح على خانتي تم تأمينها ومخفية ثم فعل الكود ولاحظ النتيجة رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مارس 9, 2013 الكاتب مشاركة قام بنشر مارس 9, 2013 عند وضع كود الاستاذ الفاضل عبد الله في ملفي .. تحمي المعادله ولكن تظهر المعادله في البداية يجب ان تحدد جميع الخلايا ثم من تنسيق الخلايا اختر حماية قم بإزالة الصح من خانتي تم تأمينها ومخفية بعدها قم بتحديد خلايا المعادلات ثم من تنسيق الخلايا قم بوضع صح على خانتي تم تأمينها ومخفية ثم فعل الكود ولاحظ النتيجة بسم الله الرحمن الرحيم أخى العزيز الاستاذ / عبدالله المجرب هذا بالفعل ماتم وقبل إطلاعى على هذة المشاركة الطيبة فهذا الكود الفريد والاوحد على مستوى المنتدى الذى أثبت كفائته ودون منازع لحماية واخفاء المعادلات تحت رعايتكم وبطريقة السهل الممتنع هذا من وجهة نظرى المتواضعه وعفوا أخى أبوأحمد لاختلاط الامر معى لظروف نفسية خارجة عن ارادتى وقتئذ بشأن الطلب الاول بالمشاركة رقم 8 لأنه من البديهى أنه من يقوم بوضع كلمة السر هو صاحب البرنامج الاصلى والذى يريد حمايته من العبث وقد تم حماية الكود كما أشار أخى العزيز / حماده عمر أسأل الله تعالى أن يوفقه دائما فهذة الاجابة ليست أفضل إجابة بل هى أروع إجابة من الرائع المتألق أبوأحمد " حماكم الله تعالى " فجزاكما الله تعالى عنى خيرا رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يوليو 28, 2013 مشاركة قام بنشر يوليو 28, 2013 لم اجد كلمات لكى اشكر بها اخى واستاذى ملك المعادلات فكل الشكر والامتنان والتقدير والاحترام لكى يا استاذى الغالى الاستاذ / حمادة عمر بارك الله لك وفيك وعليك واثابك الجنة وكل عام وحضرتك بخير رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر أغسطس 6, 2013 الكاتب مشاركة قام بنشر أغسطس 6, 2013 على المستثمر بذل الجهد حتى يصل لما يصبوا اليه رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 بسم الله الرحمن الرحيم سلام الله عليكم ورحمه وبركاته الأخوة الكرام الأخ حمادة عمر الأخ عبد الله المجرب بارك الله فيكم أكواد رائعة من مبدعين على حق بارك الله فيكم وجعله الله فى ميزان حسناتكم إن شاء الله أرجو التعديل على الكود بحث يشمل أكثر من نطاق أو أكثر من عمود غير متجاورة ولكم منى وافر التحية والاحترام رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 السلام عليكم ورحمة الله وبركاته الاستاذ ابو احمد جزاك الله خيرا كود رائع الاستاذ سعيد بيرم حفظك الله ورعاك الاستاذ والاخ الحبيب ابو سما ما شاء الله مبدع بلا حدود في كل شيء زادك الله علما وخيرا كثيرا تقبلوا فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 السلام عليكم الاخ الحبيب / قنديل الصياد بارك الله فيك جزيل شكري وعظيم امتناني علي كلماتكم الاكثر من راائعة جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 السلام عليكم الاخ الحبيب / أبو محمد عباس بارك الله فيك والله ان لكلماتك وقع علي قلبي غريب ... لا افهمه ... ولكني اسعد كلما اري ردودك الفريدة تقبل خالص تحياتي وسلامي الي محمد الغالي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 بسم الله الرحمن الرحيم سلام الله عليكم ورحمه وبركاته الأخوة الكرام الأخ حمادة عمر الأخ عبد الله المجرب بارك الله فيكم أكواد رائعة من مبدعين على حق بارك الله فيكم وجعله الله فى ميزان حسناتكم إن شاء الله أرجو التعديل على الكود بحث يشمل أكثر من نطاق أو أكثر من عمود غير متجاورة ولكم منى وافر التحية والاحترام الاخ الكريم / صالح أبو أحمد بارك الله فيك قم اخي الكريم بارفاق ملف كمثال مع توضيجح النطاقات والاعمدة التي تريد حمايتها تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ولعمل حماية للمعادلات واظهار رسالة عندما يريد المستخدم التعديل قم بوضع الكود التالي في النطاق الذي تريده Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" End If End sub جزاك الله خيرا اخى العزيز حمادة ممكن ادراج الكود فى مثال جزاك الله خير رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 الاخ الفاضل حماده جزاك الله خيرا تم ادراج المشكله التى واجهتنى جزاك الله خير لا داعى لعمل مثال رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 سلام الله عليكم ورحمته وبركاته أخى الكريم حمادة أشكرك على سرعة الرد أنا من المعجبين بهذا المنتدى ومتابعه من قريب وبحمد الله عز وجل على أنه هداني إلى هذا المنتدى الذي تعلمت من أساتذته الكرام الكثير وأشكرهم جميعاً ومتابع أعمالهم الجميلة المفيدة . هذا هو المرفق أريد عمل الكود ليشمل النطاقين ( myrange ) و (mydata ) بدلاً من النطاق ( myrange ) فقط جزاك الله كل خير myrange.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان