من لديه علم عن كود حضر الحفظ باسم

[aspiran]

السلام عليكم أبحث عن كود حضر أداة الحفظ باسم بارك الله فيكم

[حمادة عمر]

السلام عليكم

الاخ الكريم / aspiran

استخدام الكود التالي لتنفيذ طلبك

Sub sama1()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

[إبراهيم ابوليله]

الاخ حماده

بارك الله فيكم

ودائما مشاركاتك يستفيد منها الجميع

[حمادة عمر]

السلام عليكم

اخي العزيز / إبراهيم ابوليله

 

بارك الله فيك

وشكرا لتشجيعك الدائم لي

جزاك الله خيرا

[aspiran]

السلام عليكم أحبتي في الله

 

أشكر كل من شارك في الموضوع

 

فقط أعلمكم أني وجدة الكود المطلوب في كتاب من الكتب الجميلة وها هو المرفق بين

 

أيديكم

 

لنفيد ونستفيد

 

اللهم زدنا علما

save as.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / aspiran

 

بارك الله فيك اخي الكريم

ولكن لي بعض التعليقات ( للتوضيح ) علي الموضوع لتتضح لك الصورة

 

لقد قمت انت بكتابة في العنوان وفي طلبك بوضع كلمه ( حضر ) وليس ( حصر ) كما تريد انت

فالذي فهمته من الموضوع انك تريد تحضير الحفظ باسم لا منعه

ولذلك قمت بعمل الكود المناسب لذلك

 

ولو تم التعديل لحصلت علي الكود حيث ان هذا الموضوع موجود بالمنتدي

للاستاذ القدير / عمر الحسيني   .....  والقدير / عبد الله المجرب  .... جزاهم الله خيرا

في الرابط التالي بعنوان  ( كود لمنع النسخ ومنع الحفظ بإسم )

 

http://www.officena.net/ib/index.php?showtopic=40743&hl=%2B%D8%B9%D9%85%D8%B1+%2B%D8%A7%D9%84%D8%AD%D8%B3%D9%8A%D9%86%D9%8A#entry229244

 

ارجو من الله ان يفيدك ويفيد الجميع

تقبل تحياتي اخي الكريم

جزاك الله خيرا

[aspiran]

إلى الأخ النبيل و الأستاذ الكريم /

حمادة عمر

 

 

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

 

فبارك الله فيك وجزاك الله خيرا وأستسمحك أستاذ

[حمادة عمر]

السلام عليكم

اخي العزيز / aspiran

 

بارك الله فيك

وكلنا في هذا الصرح طلاب علم

ونخدم بعضنا البعض لوجه الله

جزاك الله خيرا