اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

مجدى يونس

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

قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

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

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

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

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

اخوك بوفيصل

حفظ بدون خروج 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