Messo09 قام بنشر أغسطس 9, 2011 مشاركة قام بنشر أغسطس 9, 2011 اخوتي هل يوجد كود يمنع المستخدم من حفظ الملف بعد فتحه و اجراء تغييرات وحتى منع حفظ باسم ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
Messo09 قام بنشر أغسطس 9, 2011 الكاتب مشاركة قام بنشر أغسطس 9, 2011 مشكوووووووووووووور أخي فقط سؤال بسيط آخر و اعذرني إن أثقلت عليك ، ماذا لو ربطت امكانية الحفظ بشرط معين كأن يكتب في خلية ما قيمة معينة رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 9, 2011 مشاركة قام بنشر أغسطس 9, 2011 مرحبا ضع الشرط قبل الكود if sheets(1).range("a1")="kemas" then exit sub ثم نفس الكود رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 9, 2011 مشاركة قام بنشر أغسطس 9, 2011 استخدم هذا الكود [ الاح العزيز / استاذنا الكبير " كيمـــــــــــــــــــــاس " كود رائع مع الاضافة عذرا ابو عمر سأقوم بالتصرف برفع ملف يحتوي هذا الكود في موضوع " بعض الاكواد المنفصلة قد تهم البعض " للاستاذ يحيــــــــــــاوي " اشكرك ةفقك الله ياسر الحافظ " ابو الحارث " رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 9, 2011 مشاركة قام بنشر أغسطس 9, 2011 (معدل) لك ما أردت أخى ياسر بارك الله فيك وكل عام أنتم بخير تم تعديل أغسطس 9, 2011 بواسطه kemas رابط هذا التعليق شارك More sharing options...
Messo09 قام بنشر أغسطس 9, 2011 الكاتب مشاركة قام بنشر أغسطس 9, 2011 لك كل الشكر و التقدير أستاذي الكريم رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 أهلا بك أخى عسى ألا تترك هنا وتبقى معنا بهذا المنتدى رابط هذا التعليق شارك More sharing options...
Messo09 قام بنشر أغسطس 10, 2011 الكاتب مشاركة قام بنشر أغسطس 10, 2011 الشكر موصول لك ... أخي كيف أترك هذا المنتدى و أنا الذي كنت أبحث عنه من فترة طويلة ، خاصة في ما يتعلق بالبرمجة في اكسل و أقولها لك صراحة أن منتدياتنا العربية فقيرة جدا في هذا الموضوع ، إلى أن وجدت هذا المنتدى الرائع أدامه الله ، فلكل القائمين عليه كل التقدير و الاحترام و كذا أعضاءه المحترمين.وشكرا رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 استخدم هذا الكود [ الاح العزيز / استاذنا الكبير " كيمـــــــــــــــــــــاس " كود رائع مع الاضافة عذرا ابو عمر سأقوم بالتصرف برفع ملف يحتوي هذا الكود في موضوع " بعض الاكواد المنفصلة قد تهم البعض " للاستاذ يحيــــــــــــاوي " اشكرك ةفقك الله ياسر الحافظ " ابو الحارث " الله ينور عليكما معاً الكود جميل وخاصة مع إضافة الشرط السؤال قبل الحفظ أضع كلمة معينة فى خلية محددة ثم أقوم بالحفظ تمام ؟؟؟ طيب بعد إغلاق الملف على هذا الوضع سيتم حفظه بعد ذلك تلقائياً لأن الكلمة لا تزال موجودة اقترح أن نضيف على الكود سطر ما معناه قبل إكمال الحفظ إمسح ما فى الخلية المحدده ما رأيك أستاذى كيماس ؟ رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 و الله الكود تم تفصيله حسب رغبة السائل لو هناك طلبات أخرى يمكن كتابتها كله حسب الطلب رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 أوكى يا عم كيماس ربنا يزيدك من العلم سؤالى بالنسبة للكود المذكور if sheets(1).range("a1")="kemas" then exit sub شرط إمكانية الحفظ هو بكتابة kemas فى الخليةa1 فى شيت 1 حسناً بعد كتابة الكلمة فى المكان ثم الحفظ سيتم حفظ الملف وستظل الكلمة موجودة فى الخلية وبالتالى أصبح الشرط موجود دائماً وأى عملية حفظ تالية ستتم ولن يكون لكود منع الحفظ تأثير وإذا مسح المستخدم بنفسه الكلمة ثم حفظ الملف لن يتم الحفظ لأن الشرط لن يتوافر كيف نحل هذه المشكلة استاذى العزيز ؟ رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 (معدل) بسيطة ممكن نضع تعليمة برمجية فى حدث فتح الملف ل woorkbook open وظيفته مسح هذه الكلمة sheets(1).range("a1")="" كما يمكن المسح قبل الحفظ فى نهاية الكود يعنى مسح قبل الخروج كما يمكن اسستقبال كلمة الحفظ عن طريق صندوق إدخال بحيث لا يتم الحفظ إلا إذا كانت الكلمة موافقة ما رأيك تم تعديل أغسطس 10, 2011 بواسطه kemas رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 10, 2011 مشاركة قام بنشر أغسطس 10, 2011 الله ينور عليك جارى التجربة مشكووووووووووور رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.