اذهب الي المحتوي
أوفيسنا

زر حفظ للبرنامج


الردود الموصى بها

الاخوة الاعزاء

عند اخفاء الاوامر ومنها امر الحفظ نحتاج لزر للحفظ بدون خروج من البرنامج كما هو موضح من الملف المرفق الذى هو من مجموعة ابتكارات الاخوة الزملاء

مجدى يونس

حفظ بدون خروج.rar

رابط هذا التعليق
شارك

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

مبدع بكل المقايييييييييييييييييييييييييييييييييس

لكن يوجد لدي استفسار

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

سوف يكون من الرئع ان نفعل هذا الكود لملف واحد وليس للبرنامج بصفة عامة

ولك جزيل الشكر

تم تعديل بواسطه BuFaisal
رابط هذا التعليق
شارك

استاذ عماد مشاركاتك وافكارك تفتح ابواب كثيرة لتطوير لذلك حاولت ان اطبق ما اشرة اليه سابقاً

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

سوف يكون من الرئع ان نفعل هذا الكود لملف واحد وليس للبرنامج بصفة عامة

ولله الحمد وعن طريق الاستعانة بفكرة استاذي الكبير بوعبدالله في مشاركة التقويم استطعة ان اطبقها واقد أضفة لها زر لأغلاق الملف في حالة الرغبة في اغلاق هذا الملف مع متابعة العمل على ملفات الاكسل

التحدي الجديد هو عند فتح هذا الملف فأن شريط الادوات سيختفي على جميع الملفات وسيضهر اتوماتيكياً عند اغلاقة فهل نستطيع اخفاء اشرطة الادوات عند تنشيط هذا الملف وستظهر عند الانتقال الى اي ملف اكسل اخر حتى في حالة فتح هذا الملف

للاسف لم تمر علي اي مشاركة ممثلة للأستعانة بها لذا سأقدر تجاوبك

اخوك بوفيصل

حفظ بدون خروج 2.rar

رابط هذا التعليق
شارك

يا ابو فيصل مشكلتك بسيطة

شاهد المرفق التالي

حفظ بدون خروج 2.rar

رابط هذا التعليق
شارك

بسيطة عندك لكن عندي حركااااااااااااااااااااات

وعساس تكمل الطبخة باقي شوي بهارات

حطينا اغلاق الملف و SAVE ما باقي الى SAVE AS

استخدمة هذا الكوود بي ماضبط

Sub Save_As_file()

ActiveWorkbook.SaveAs Filename:= _

template_file, FileFormat:= _

xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False

End Sub

اخوي عماد شورتك وهداية الله

تم تعديل بواسطه BuFaisal
رابط هذا التعليق
شارك

ابو فيصل العزيز

استعمل الكود التالي فقط

Application.Dialogs(xlDialogSaveAs).Show

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information