Messo09 قام بنشر أغسطس 9, 2011 قام بنشر أغسطس 9, 2011 اخوتي هل يوجد كود يمنع المستخدم من حفظ الملف بعد فتحه و اجراء تغييرات وحتى منع حفظ باسم ولكم جزيل الشكر
عبد الفتاح كيرة قام بنشر أغسطس 9, 2011 قام بنشر أغسطس 9, 2011 (معدل) استخدم هذا الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "The 'Save As' function has been disabled." Cancel = True End Sub طبعا بعد إجراء كل التغييرات و حفظ الملف على الصورة التى تريدها تبدأ فى وضع الكود فى كائن thisworkbook الحدث BeforeSave و إلا لن تتمكن أنت أيضا من الحفظ تم تعديل أغسطس 9, 2011 بواسطه kemas
Messo09 قام بنشر أغسطس 9, 2011 الكاتب قام بنشر أغسطس 9, 2011 مشكوووووووووووووور أخي فقط سؤال بسيط آخر و اعذرني إن أثقلت عليك ، ماذا لو ربطت امكانية الحفظ بشرط معين كأن يكتب في خلية ما قيمة معينة
عبد الفتاح كيرة قام بنشر أغسطس 9, 2011 قام بنشر أغسطس 9, 2011 مرحبا ضع الشرط قبل الكود if sheets(1).range("a1")="kemas" then exit sub ثم نفس الكود
ياسر الحافظ قام بنشر أغسطس 9, 2011 قام بنشر أغسطس 9, 2011 استخدم هذا الكود [ الاح العزيز / استاذنا الكبير " كيمـــــــــــــــــــــاس " كود رائع مع الاضافة عذرا ابو عمر سأقوم بالتصرف برفع ملف يحتوي هذا الكود في موضوع " بعض الاكواد المنفصلة قد تهم البعض " للاستاذ يحيــــــــــــاوي " اشكرك ةفقك الله ياسر الحافظ " ابو الحارث "
عبد الفتاح كيرة قام بنشر أغسطس 9, 2011 قام بنشر أغسطس 9, 2011 (معدل) لك ما أردت أخى ياسر بارك الله فيك وكل عام أنتم بخير تم تعديل أغسطس 9, 2011 بواسطه kemas
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 قام بنشر أغسطس 10, 2011 أهلا بك أخى عسى ألا تترك هنا وتبقى معنا بهذا المنتدى
Messo09 قام بنشر أغسطس 10, 2011 الكاتب قام بنشر أغسطس 10, 2011 الشكر موصول لك ... أخي كيف أترك هذا المنتدى و أنا الذي كنت أبحث عنه من فترة طويلة ، خاصة في ما يتعلق بالبرمجة في اكسل و أقولها لك صراحة أن منتدياتنا العربية فقيرة جدا في هذا الموضوع ، إلى أن وجدت هذا المنتدى الرائع أدامه الله ، فلكل القائمين عليه كل التقدير و الاحترام و كذا أعضاءه المحترمين.وشكرا
يوسف عطا قام بنشر أغسطس 10, 2011 قام بنشر أغسطس 10, 2011 استخدم هذا الكود [ الاح العزيز / استاذنا الكبير " كيمـــــــــــــــــــــاس " كود رائع مع الاضافة عذرا ابو عمر سأقوم بالتصرف برفع ملف يحتوي هذا الكود في موضوع " بعض الاكواد المنفصلة قد تهم البعض " للاستاذ يحيــــــــــــاوي " اشكرك ةفقك الله ياسر الحافظ " ابو الحارث " الله ينور عليكما معاً الكود جميل وخاصة مع إضافة الشرط السؤال قبل الحفظ أضع كلمة معينة فى خلية محددة ثم أقوم بالحفظ تمام ؟؟؟ طيب بعد إغلاق الملف على هذا الوضع سيتم حفظه بعد ذلك تلقائياً لأن الكلمة لا تزال موجودة اقترح أن نضيف على الكود سطر ما معناه قبل إكمال الحفظ إمسح ما فى الخلية المحدده ما رأيك أستاذى كيماس ؟
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 قام بنشر أغسطس 10, 2011 و الله الكود تم تفصيله حسب رغبة السائل لو هناك طلبات أخرى يمكن كتابتها كله حسب الطلب
يوسف عطا قام بنشر أغسطس 10, 2011 قام بنشر أغسطس 10, 2011 أوكى يا عم كيماس ربنا يزيدك من العلم سؤالى بالنسبة للكود المذكور if sheets(1).range("a1")="kemas" then exit sub شرط إمكانية الحفظ هو بكتابة kemas فى الخليةa1 فى شيت 1 حسناً بعد كتابة الكلمة فى المكان ثم الحفظ سيتم حفظ الملف وستظل الكلمة موجودة فى الخلية وبالتالى أصبح الشرط موجود دائماً وأى عملية حفظ تالية ستتم ولن يكون لكود منع الحفظ تأثير وإذا مسح المستخدم بنفسه الكلمة ثم حفظ الملف لن يتم الحفظ لأن الشرط لن يتوافر كيف نحل هذه المشكلة استاذى العزيز ؟
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 قام بنشر أغسطس 10, 2011 (معدل) بسيطة ممكن نضع تعليمة برمجية فى حدث فتح الملف ل woorkbook open وظيفته مسح هذه الكلمة sheets(1).range("a1")="" كما يمكن المسح قبل الحفظ فى نهاية الكود يعنى مسح قبل الخروج كما يمكن اسستقبال كلمة الحفظ عن طريق صندوق إدخال بحيث لا يتم الحفظ إلا إذا كانت الكلمة موافقة ما رأيك تم تعديل أغسطس 10, 2011 بواسطه kemas
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.